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DECK KEY 
1. 



5. 



8. 



10. 



11. 



12. 



^U^Jcjltine^MGT^ 1130 Object Deck - sequence # in cc 78-80, 

Test program for MAGT (with control cards and five data cards): 
1130 Object Deck - sequence # in cc 78-80, 25 cards (OPTIONAL) 

Subroutine ILS04: 1130 Object Deck - sequence # in cc 78- 80 
4 cards (BASIC) 

^UBROTTINEM^l^- 1130 Object Deck - sequence # in cc 78-80, 

Test program for MAGTZ (with control cards and five data cards): 
1130 Object Deck-sequence # in cc 78 - 80, 22 cards (OPTIONAL) 

Subroutine lOU; 1130 Object Deck - sequence # in cc 78-80 3 
cards (BASIC) 

Subroutine REWNZ: 1130 Object Deck - sequence # in cc 78-80 
3 cards (BASIC) 

Subroutine SnO: 1130 Object Deck - sequence # in cc 78-80 
24 cards (BASIC) 

Patch program for Ver. 1, Mod. 4 Fortran Compiler - sequence # 
in cc 78-80, 5 cards (BASIC) 

Subroutine MAGTA: 1130 Object Deck - sequence # in cc 78-80 
9 cards (BASIC) 

Test program for MAGTA (with control cards and five data cards): 
1130 Object Deck - sequence* in cc 78-80, 19 cards (OPTIONAL) 

Complete System Update Deck with Control Cards and Object 
Decks - 90 cards (OPTIONAL) 



ABSTRACT 

This subroutine package includes three main routines - one for use with 
assembler language programs and two for Fortran compiled programs. The 
purpose at these routines is to perform standard magnetic tape l/O func- 
tions on an 1130 system {running under the 1130 Monitor System) for up 
to eight series - 2400 magnetic tape units (connected to the CPU via 
a special RPQ Selector Channel) . 

The routine for assembler programs conforms to the standard ISS format 
and conventions used on the 1130 System. Read, Write, Test and 
associated tape control operations are executed by the routine when it is 
called by a UBF sequence in a user's program. The routine utilized stand- 
ard tape error-checking and recovery procedures and passes error codes to the 
user's program in the event of errors and/or special conditions (EOT, EOF, 
etc.) . This routine requires the ILS04 ILS sula-outine and the MAGT ISS sub- 
routine. 

The two routines for use with Fcxtran programs (but written in assembler language) 
can be used sepairately or together in the same user program as desired by the 
user. Both routines provide read, write, backspace, end file and rewind 
magnetic tape functions . Error checking and recovery procedures are more 
limited than in the routine for assembler programs since it was desirable to 
keep program length to a minimum (however, these procedures can be expanded 
by the user If it is desirable and if the needed space is available). One routine 
reads and writes via standard Fortran READAvRITE statements; hence, all 
conversicHi and data f cxmattlng provided by the Fortran Compiler is automatically 
available to the user. The second routine is a called subroutine with the command, 
tape unit number, data length, and data location as parameters. This routine 
is quite similar to the first, but moves data directly out of or into ccare. Hence, 
it is considerably faster than the first routine, but requires the user to take 
care of any formatting and conversion that may be necessary for his purposes. 
These two routines do NOT require the ILS04 routine. However, the first 
requires the lOU, REWNZ, and the SFIO routines supplied with the package . 
Also, the first requires that certain recognition sequences in the ve^ior^ 
,Mod. 4 Fortran Compiler be enabled with a "patch" program that isalsosupplied 
f5ina?er^!'eSSisT^Hferent compiler changes may be necessary) . 

This program and its documentation were written by an IBM employee . They have 
been submitted to the Program Information Department for general distribution in 
the expectation that they may prove useful to other members of the data process- 
ing community. The program and its documentation are, essentially, in the 
author's original form and have not been subjected to any formal testing. IBM 
only serves as the distribution agency in supplying this program. It Is the 
user's responsibility to determine the usefulness of and technical accuracy of 
the program in his own environment. This program is not part of the IBM product 
line as are Programming Systems (Type I) and Application Programs (Type H) . 



Questions concerning the use of the program should be directed to the author. 

Any changes to the program will be reflected in the appropriate Catalog of Programs; 

however, the changes will not be distributed automatically to users . 

CONFIGlfRATION: (for both assembler and Fortran support) 

1130 Monitcar System (CPU, disk, card read/punch car paper tape read/punch) 

2400 series Magnetic Tape Units (a401's, 241S's, etc.) 

2954 RPQ Selector Channel 

8K Core 

Assembler and/or Fcatran Software 



a>Kii 



«.u, 



^"^- SUMOUTINE FOR ASSEMRT.K^; 1 ^^.rGUAGl PROGRAMS iMAnr^ 

stt-JS ™'^" '^''^ """"'• ^^^ "^"'^ ^'^ • ^°"" ^"^'^9 sequence 

5-11. Control Parameter 

This parameter consists of four hexadecimal digits. See Figure S-2. 
I/O Function 

The I/O Function digit specifies a particular operation performed on the 

caTm^tf ^^ T^- J^^ f"""ions, associated digital values, and required 
parameters are listed in Figure 5-3. muupu 

Test 

nRr!^?. !^ "°^^^ '^ '^^ ^'^'''°''^ operation has not been completed, or to 
LIBF+3 If the previous operation has been completed. 

Read 

Reads the requested number of words into the I/O area from the record at 
which the tape is positioned. If a read check occurs, the subroutine retries 
the operation up to 50 times . Each attempt includes backspacing the tape 
one record and then reading the record. A standard error recovej procedure 

ivex^ thir^"att?"^.''*'» ''"^ '"' "°''" '^'^'^' ""'^ backspacing ti^eVrecords 
every third attempt. If at any time the record is read correctly, the sub- 
routine exits as if no error occurred. 

If a read check still exists after SO attempts, the subroutine exits to the 
user s error routine with an error code In the accumulator. Also, if the 
requested number of words is not equal to the record size, or if a tape 
mark is read, the subroutine also exits to the user's error routine with an 
error cxjde in the accumulator. NOTE: The number of wca-ds read will never ex- 
ceed the specified word count. 

Write With Error Retries 

Writes the requested number of words from the I/O area as one record on 
the specified tape, when the operaUon is completed, the subroutine deter- 
mines whether a write check or end-of-tape indicator was. encountered. If 
not, the subroutine exits normally. 

If a write check is detected, a retry counter is set for three attempts to 
write correctly. Each attempt consists of backspacing the tape one 
record, erasing several Inches of tape, and then rewriting that record. 

no^'r^OT ocSiVid "■ ^f^ '^ '""*^" correctly, the subroutine exits as If 
occurred, if the write check remains after three retries or an 
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end-Gf-tapc indicator is encountered, the subroutine exits to the 
user s error routine. 

Write Without Error Retries 

writes the requested number of words from the I/O area as one record on 
he specified tape. When the operation is completed, the subroutine de- 
termines whether a -.-rite check or an end-of-tape indicator was encountered. 
11 not, the subroutine exits normally. 

ii^r^^lu^^''^ °'''" end-of-tape indicator was encountered, the subroutine 
exits to the user s error routine; no rewrites are attempted. 

Rewind 

Initiates a tape rewind and returns control to the user. 
Rewind and Unload 

Initiates a tape rewind and unload and returns control to the user. 
Backspace 

Backspaces one record. If the tape is at the load point marker, no back- 
space occurs. Note that a backspace does not check for a tape mark. 

Write Tape Mark 

Writes a tape mark on the tape, when the operation is complete, the sub- 
routine processes write checks and end-tape indicators in the same manner 
as the write with error retries function. 

Mode Set 

The mode set function must be used to change the current status of the 
control unit and tape drive. This is the only function that uses digits 
Z and 3 of the Control Parameter; these digits are ignored for all other 
functions Refer to SRL Form A22-6866 under mode set commands for a 
description of setting and resetting mode. Care is urged in using this 
instruction, since different model tape units have different mode capabili- 
ties: incorrect mode commands result in no-ops with NO error indication. 
Digits 2 and 3 are set according to Figure 5-4. 



Device Identification: 

This digit specifies which magnetic tape unit is to be used. The digit 
will be 0-7 corresponding to tape drive zero through seven. 

5-12. I/O Area Parameter 

The I/O area parameter is the label of the control word which precedes 
the user's I/O area. This control word contains the word count, which 
is the number of 16-bit words to be transferred and must not be less than 
six for a read operation nor less than eight for a write operation. 

5-13. Error Parameter 

The error parameter is the label of the entry point of the user's error 
routine . If an errOT occurs , the subroutine will use a BSI instruction 
to enter this routine (hence, this label should reference the word just pre- 
ceding the first instruction of the user's error routine) . The user's routine 
must always return to the tape subroutine via the BSI link . The user should 
consult SRL Form C25-5929 (IBM 1130 Subroutine Library) before writing 
this routine to ensure that the requisite conventions are followed under "user's 
error routine implications". Error handling includes the error branches and 
recovery choices specified in Appendix A and B . If an errOT branch occurs 
fear the write or write tape mark functions, the record in error will have been 
erased; othenvise the tape will be positioned beyond the record in question. 
A description of terms follows: 

Error - Specifies any of the following errors remaining after three retries 
(write or write tape mark), after fifty retries (read), at after no retries (write 
without retries): tape data error, program check, or overrun. 

EOF - Specifies a tape mark (end-of-file record) read. 

EOT - Specifies a tape indicator (end-of-tape reflective marker) sensed 

during a write or write-tape-mark operation or a tape mark encountered 
on each of two consecutive read operations . 

Long Record - Specifies a partial tape record read since it contained more 
words than the user's word count. 

Shcrt Record - Specifies a tape record read containing fewer words than the 
user's word count. 

Termination - Specifies clearing the routine busy indicator, decrementing the 
ISS counter (location 50) by 1, and returning to the ILS. 

Retry - Specifies initiating another three or fifty retries, according to the 
function. 
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Reinitiate - Specifies initiating a read on the next record . 

RWU - Specifies initiating a rewind/unload . 

Correct Count - Specifies setting the word count in the l/O area to the 
number actually read . 



EOF (under "subroutine action" in Appendix 1 
writing of one tape mark. 



Specifies initiating the 



Detailed errca- procedures are contained in Appendices A and B. 

5-14. Sample Program 

The MAGT test program reads the first 72 columns from each of five data 
cards, writes these records on tape unit 0, writes two tape marks, and 
then rewinds the tape. The records are transferred from unit to unit 1; 
an, extra read is performed on unit so that the first tape mark will be 
sensed. The reinitiate recovery choice is made, causing the second tape 
mark to be sensed (thus satisfying the EOT ccaidition) and the RWU/ter- 
minate choice is executed . Two tape marks are then written on unit 1 and 
the tape is rewound, after which the records are read and printed. Five 
backspace commands are executed, and the records are read and printed a 
second time. An extra read is performed on unit 1 so that the first of the 
two tape marks is sensed. The reinitiate choice is executed, causing the 
second tape mark to be sensed; the RWU/terminate choice is again executed . 
Tape unit is now spaced forward five reccsrds (the operator must reload the 
tape in response to the 4000 code) by reading five records and an ext ra read 
is executed, causing the first tape mark to be sensed; the reinitiate choice 
is again made, but when the second tape mark is sensed (EOT condition) 
the terminate choice is made . The fifth record is written on the tape (e.g. 
beyond the two tape marks), and the tape is backspaced three records. The 
sequence of reads is again executed, but on EOT, the reinitiate choice is 
made, causing the block written beyond the tape marks to be read. The 
tape is then rewound. Another read/print loop is now initiated, during which 
the RWTJ/reinitiata choice is executed: the five records are read and printed, 
the RWU/reinitiate choice is made (after EOT detected) , the five records are reai 
again and printed (the operator must reload unit in response to the 4000 code) 
and the RWU/tenninate choice is made (after EOT detected for the second time) . 
Since the test program is In a read/print loop, the last record is printed a secon 
time after the RWU/terminate choice . 

Finally, the Long and Short Record procedures are tested. A read is executed 
(the operator must reload urut again) that requests a block shorter than the 
one on the tape; first, the operation is retried, then it is terminated. The 
short input block is then printed. Next, a block longer than that on the tape 
is requested; the correct count/terminate choice is executed and the input 
block is printed. Finally, the last three blocks are read and printed using 
the corrected word count, tape is rewound-unloaded , and the program 
exits . 
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If at any time a non-correctable read error occurs, the program pauses with/ 
DEAD in the accumulator: the program should be cancelled and retried in this 
case. However, if Program Start is pressed, the operation will be retried. 
The error routines in this test program do NOT check for all possible eixors 
that might occur: if an unexpected error occurs , the test program may hang 
up in a loop (e.g. a retry loop, etc.) . The program should be cancelled 
and retried in this case, 

S-15. CONFIGURATION 

1130 Monitor System (CPU, disk, card read/punch or paper tape read/punch) 

2954 RPQ Selector Channel 

2400 Series Tape Units {2401's, 2415's, etc.) 

8K Core 
5-16. SUPPORT 

MAGT and ILS04 subroutines only. 



Calling Sequence 



LIBF 


iiiil 




DC 


/x;i/cx 


(Control rirtaeier) 


DC 


iixiiA 


(I/O Areii) 
(Error Routine) 


DO 


3RR0H 



SrtHOR 



Rstum Linit 



Error Routine 



BSG I 



iZ-utOR 



AR2A Control Word 



l/O Area 



FlE. 5-1. 
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Device Identlf Ic^tlon- 
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SI: 
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Value 
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Parameters* 
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l/O area, Error 


Write/with error 
r*trt*« 




2 




Cisntrol, 


I/O area, Siror 


Wrlt«/wlthout error 
ratrle* 




3 




Control, 


l/O area, Error 


Sawlnd 




4 




Control 




Rewind and Unload 




5 




Control 




Backspace 
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Control 




Write Tape-- Mark 
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Control, 


Error 


Hod* Set 
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Control 
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quired 


for a. Darticular function 



5-2. SUBROUTINE FOR FORTRAN COMPILED PROGRAMS (MAGTZ) 

The MAGTZ subroutine (when used with the required associated routines and 
compiler changes as described in 6-132), performs read and write operations 
with standard Fortran Read/Write statements of the form: 

READ (S.n) UST 

Where ^denotes " magnetic tape , n specifies the format statement, and UST 
is a list of variable names . Since standard ReadAlfrite statements are used, 
all conventional Fortran formatting and data conversion can be used. In 
addition, backspacing, rewinding, and wriUng tape marks can be accom- 
plished by use of the statements BACKSPACE n, END FILE n, and REWIND n, 
where n specifiesthe desired tape unit. ( 'MagneUc Tape' must be included 
in the IOCS card of any Fortran job in which any of the above tape functions 
are to tje performed.) 



5-21. 



Fig. 5-3. 
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WRITE 

ExecuUon of a Fortran WRITE statement results in a block of 120 characters 
in packed format being written from the I/O buffer at locatior y ^D onto the ta pe 
for each call from the SFIO I/O subroutine (the bu&r Is in unpacked format" — 
but prior to transfer, each data block is packed) . If an error occurs during ' 
the opwation, a retry counter is set for three attempts to write correctly. 
E-ach attempt consists of backspacing the tape one record (I.e. to the be- 
ginning of the record in errOT), erasing several inches of tape, and then 
rewriting that record. If at any time the record is written correctly, 
program exeoition continues as if no error occurred. If the write check re- 
mains after three retries, the subroutine pauses with an error code in the 
accumulates- (see Appendix C and 6 . 2 for errw procedures) . If the end-of- 
tape (EOT) reflective marker is sensed during a write operation, two tape 
marks are written (to signify EOT when the tape is read at a later time) and 
the tape is rewound -unloaded (see 6.2). 

READ 

Execution of a Fortran READ statement results in a block of 120 characters 
being read from the tape and placed into the l/O buffer at location^D in 
unpacked format t<x each call from the SnO I/O subroutine (each input block 
is in packed format, but after transfer, each data block is unpacked) . If an 
error occurs during the operation, a retry counter is set for fifty attempts 
to read correctly. Each attempt consists of backspacing the tape one 
record (i.e. to the beginning of the record in error) and re-reading that 
record (any noise records are ignOTedji If at any time the record is read 
correctly, program execution continues as if no error occurred. If the 
read check remains after fifty refrles, the subroutine pauses with an error 
code in the accumulator (see 6 . 2 and Appendix C for error procedures) . 
If a tape mark Indicating end-of-file (EOF) is sensed during a read operation, 
the subroutine pauses with EOFX in the accumulator, vh ere X Is the number 
of the tape unit (see 6.2). If tape marks are sensed on two consecutive 
.-ead operations, the EOT condition is satisfied and the tape is re-.vound- 
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unloaded (see 6.2). Hence, the user should always write two tape marks 
at tne end of the last file of data on every tape. 

BACKSPACE 

Execution of the BACKSPACE n command causes tape unit n to be backspaced 
one record (if the tape is already at load point, no backspace occurs) . 

ENPnLE 

Execution of the END HLE n command causes one tape marK to be written 
on unit n. Error procedures are the same as fcr WRITE. 

REWIND 

Execution of the REWIND n command causes tape unit n to be rewound to 
Its load point (if the tape is already at load point, no action is taken) . 

5-22. TAPE UNIT SELECTION 

The RPQ Selector Channel for the U30 can handle up to eight tape units but 
only Magnetic tape- and NOT the specific tape unit desired can be specified 
n a Fortran READ/WRITE statement; hence, a method of selecting the Vesired 
tape unit has been provided. The MAGTZ subroutine maintains a tape unit 
indicator which is reset each time a BACKSPACE, END HLE or REWIND 
cominand is executed. All read/write operations use this indicator to select 
the tape unit for that operation. 

For example: 8 BACKSPACE 1 

READ (5. n) USTA 
READ (5,m} LISTB 
BACKSPACE 2 
WRITE (5, n) LISTA 
WRITE (5, m) USTB 
GOTO 8 

'"°^"Vl.T^^ """ ^ ^° ^ backspaced one reconl (no effect if at load point) 
and USTA and LISTB to be read from it; then unit 2 would be backspaced one 
record (again, no effect if at load point) and USTA and USTB would be written 
on it. Now if the operation (i.e. read from unit 1, write on unit 2 ) were to 
?ffo™''l^ ""^"^^"^ inefficiency would result. Unit 1 is now positioned 
^f rri^f '■ u"''^' ^ ^C*^fACE 1 would re-posltion the tape at the beginning 
of USTB, so the READ/USTA command would result in USTB being read 
again (to avoid this, an extra read would be necessary) . Similarly the 
command sequence would cause LISTS on unit 2 to be overwritten with the 

S/eTeTf tt°" T^\ '° ^r""*^ ^^ ^^°^^^'»' ^isSSi^n 
that resets the unit indicator but ^^..^p.: no tape motion h^l 'LU tJ X.hIj^., 

W L^ A - hS Lk^Mc L n, kNU till ri, or RHWiNl^ n, where"nS'\l! rou" h TJ '^ ^ 
foHows'^''^'^' ^^^ °°'"'^'^ Is no-oped, but the uAlt Indicator is reset" 'as 
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unit indicator 


1 
2 



Hence, the previous example when rewritten becomes: 

8 BACKSPACE 9 

READ(5,n) USTA 
READ (5,m) USTB 
REWIND 10 
WRITE (5,n) LISTA 
WRITE (5, m) LISTB 
GO TO 8 

ERROR FRa CEDURES (EXTENSION) 

Error Procedures have been held to a minimum; however, expanded procedures 
are possible if the user desires (see 7-11). "v.«uures 

5-23. SAMPLE PROrtRflM 

The sample program for the MAGTZ subroutine reads the first 72 columns of 
each of five data cards and writes these records onto tape unit 0. Two tape 
marks are then written on unit and the tape is rewound. Next, the records 
are transferred to tape unit 1. An extra read on unit is executed so that 
the first of the two tape marks will be sensed: the routine pauses with EOFO 
in the accumulator. The operator should press program start at this time - 

In JL ^"^ ""^^ !'^''"'^ *"°'*'^'' '^^'^ °" ^^^ "^ ^^''O'd, which turns out to be 
another tape mark. Since two consecutive tape marks have been sensed 
unit is rewound/unloaded. Two tape marks are now written on unit 2 and 
this unit is rewound. Finally, the records on unit 2 are read back and written 
.°ill '"u ';. ^ ^"^"^ ■"^^'^ °" """ 2 is executed so that the first of the two 
tape marks will be sensed: the routine pauses with EOH in the accumulator. 
The operator should press program start again at this time - EOT processing 
will continue as above. The routine then exits via a CALL EXIT, (cf llsUna 
and sample output for MAGTZ test program). ""^ 
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5-24. CONFIGURATION 

1130 Monitcr System (CPU, Disk, Card Read/Punch or Pdper Tape Read/ 
Punch) 

2954 RPQ Selector Channel 

Series 2400 MagneUc Tape Units (2401's, 2415's, etc) 

8K Core 
5-25. SUPPORT 

MAGTZ, lOU, REWNZ, SFIO, Fortran Compiler Patch 

5-3. SUBROUTINE FOR FORTRAN COMPILED PR<?GRAMS (MAGTA) 

5-31 . The MAGTA subroutine is an assembler ianguage routine that can be called 
&om Fortran compiled programs to perform read, write, backspace, end file, 
and rewiixi magnetic tape functions . The call instmction ioc reading and 
writing is: 

CALL MAGTA (n, m, len, name) 



where n specifies the command (0=Tead, 2=write), m specifies the specific 
^tape unit (0-7),, 'len' specifies the word count of the data to be transfered, 
and 'name'" is a single variable name specifying the locatlwi of the data 
(the routine transfers 'len' words of data sequentially, starting at location 
'name'). The call for backspace, end file, and rewind is: 



CALL MAGTA (n, m) 

where n and m are as described in the above paragraph. 
n=5, end file; n=3, rewind). 



(n=4 backspace; 



The advantages of this routine with respect to the MAGTZ routine are: 
the ability to specify the tape unit directly (rather than with a ho-c?) instruc- 
tion) , a higher rate of data transfer, and the ability to write variable length 
data blocks (MAGTZ transfers data via the standard Fortran l/O buffer in 
blocks of 120 characters and interfaces with the SFIO Fortran l/O routine in 
order to provide formatting and ccaiversion facilities. This sometimes leads 
to inefficiencies. For example, to transfer an array of 100 integers, the 
SFIO routine passes only one element at a time into the buffer. Consequent- 
ly, 100 blocks of 120 characters each are written on tape for the array. The 
MAGTA routine , on the other hand, transfers the entire array together as a 
single block of 100 words.) 
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The major disadvantage of the MAGTA routine is the loss of the formatting 
and conva-sion facilities provided by the Fortran compiler via READ/WRITE 
statements . The MAGTA routine transfers data firon? core to tape sequentially 
in core image format: the user must be responsible fear formatting and blo ck 
length. 



Both MAGTA and MAGTZ can be used In the same Fwtran program; either can 
be used alone (if MAGTA is used alone, 'MAGNETIC TAPE' shoulder be 
added to the IOCS cards) . "■■• 

Error ;H-ocedures for all of the following commands are exactly the same as 
for the MAGTZ routine (see Appendix C) . 

WRITE 

n=2 'len' words of data are transferred from core to tape unit m sequentially 
and unchanged, starting at core location 'name*. 

READ 

n=0 'len' words of data are transferred from tape unit m to core sequentially 
and unchanged, starting at core location 'name'. 

BACKSPACE 

n=4 tape unit m is backspaced one record (if at load point, no backspace occurs 

ENDHLE 

n=S a tape mark is written on tape unit m. 

REWIND 

n=3 tape unit m is rewound to its load point (if at load point, no action is taken] 

ERROR PROGEPnRES (EXTENSION) 

Error procedures have been held to a minimum; however, expanded procedures 
are possible if the user desires (see 7-11). 

5-32. SAMPIJE PROGRAM 

The sample program for the MAGTA subroutine reads the first 72 columns 
of each of five data cards and writes these records cmto tape unit . Two 
tape marks are then written on unit and the tape is rewound. Next, the 
recOT'ds are transferred to tape unit 1 . An extra read on unit is executed 
so that the first of the two tape marks will be sensed: the routine pauses 
with EOFO in the accumulator. The operator should press program start at 
this time — the routine will execute another read on the next record, which 
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turns out to be another tape mark. Since two consecutive tape marks have 
been sensed, unit is rewound/unloaded. Two tape marks are now written 
on unit 2 and this unit is rewound. Finally, the records on unit 2 are 
read back and written on the printer. An extra read on unit 2 is executed 
so that the first of the two tape marks will be sensed; the rouUne pauses 
with EOFI in the accumulator. The operator should press program start 
again at this time ~ EOT processing will continue as above. The rouUne 
then exits via a CALL EXIT, (cf . listing and sample output for MAGTA test 
pa'ogram). 

33. CONFIGURATION 

1130 Monitor System (CPU, disk, card read/punch or paper tape read/punch) 

2954 RPO Selector Channel 

Series 2400 Magnetic Tape Units (2401's, 2415's, etc.) 

8K Core 

34. SUPPORT 
MAGTA 



6-1. SYSTEM SET-UP 
6-11. Hj^DWAgE 

1130 Monitor System (CPU, disk, card read/punch or paper tape read/pun«h), 
2400 series tape units (2401 's, 2415's, etc.), 2954 RPQ Selector Channel, 
SK core, 

NOTE: The Tape Contr ol Unit address should be set to 8 . The tape units 
should have addresses 0-7. —— — , 

6-12. SOFTWARE 

Assembler and/or Fortran software 

6-13. SUPPORT 

6-131. MAGT System - 

Subroutines required: MAGT 
ILS04 

Procedure: the 1130 subroutine library must have the MAGT and ILS04 routines 
added to It. One update deck only is required (see Figure 6-1). If only object 
decks are supplied. Just add the indicated control cards. Updating job is run 
just as any ordinary job, either stacked with other jobs or alone with a cold 
start card. 

6-132. MAGTZ System - 

Subroutines required: MAGTZ 
lOU 
REWNZ 

sno 

Fortran Compiler Patch 
Procedure: the 1130 sula-outine library must have the MAGTZ, lOU, REWNZ, 
and SFIO routines added to it; in addition the Fortran compiler must be 
patched feversi(^r| 1^^^^ mod^ 4 mmnilpr requires only that certain recog- 
nition sequences be enabled — newer versions may require different patching 
from that which is presented here) . The updating and patching job is run just 
as any ordinary job, either stacked with other jobs or alone with a cold start 
card (see Figure 6-2.). If only the object decks are supplied, Just add the 
indicated control cards . 

6-133. MAGTA System - 

Subroutines requited: MAGTA 

Procedure: the 1130 subroutine library must have the MAGTA routine added to it. 
One update deck only is required (see Figure 6-3 .) . If only the object deck 
is supplied, just add the indicated control cards. Updating job is run just 
as any ordinary ;ob, either stacked with other jobs or alone with a cold start 
card . 
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^■2- ERROR HAT.7S AND PRnnT-niTOPg 

KiSf A^ B, 7Tc. ^"' "^^^/°^^-^- P-^^-s are detaUed in 
^"3- TAPE UNIT OPERATrnW 

interrupt are NOT in core le a whT .T ^ ^^^' '°"""^^ ^°' ^^""^^'"^ *he 
new ^£ is-bein7lLro;^-:.pUei tLr'^ac.e'^T^bi^^r ', ^^^^ ^ 

unit- (A22-6865-3) Paae 4-11 iLfl K^r''"^ ^^"^ ""''^ *"^ ^816 Switching 
Tape unit Loading and Unloading PrSedufes) ' Organisation, 

erc"l'°USre1:^^ '"''''''^'' '^-^- ^^ «-3-)- no special console settings. 



Zl 



ILS04 Object Deck 



if^STORS CD UA fLS04 




/*BTOEECD UA MAGT 



r^^DSLllS, 



•mtrr 



_J2U£ 






(cold BtJirt card OPTIONAL) 



Fir. 6-1.. 





( blank.) 



bi"IEir) 



gj^is^assj^sa qms 1 ^ fct. i^ 'ii i f . 



rFortriin Coni-jll^r 
Pubch Dock 



// IE MOO 







p&fN 



JFIO Object Dock 



STORE CD UA :.FIO 
D'SLEifE ■ ;" , • oF.IO 



REUfNZ Oject Deck 



I^STOm^ CD UA rs'...n: 




/» STORE CD 'UA IQU 

JpSLETE" 



I f^^DiiLSIS 






I 





NiAGTZ Object DecK 
<^SfORE" 6d""ua MAGTZ 



( Gold ^.tart card Oi-'flOWAl| 

Fltr. 6-2. 



2 2 



{ 



rbT5.nkl " '' ■ 
blank)' . ' '^ 




J^&'^i)Ki OP UA kA-QTA 



/(cold start oard OPTIONAL) 



Pig. 6-3. 
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7-1. POSSIBLE PROGRAM MODIFICATIONS 

7-U. EXPANDED ERROR PROCEDUBES jMAGT Z. ^lAGTA) 

1. of. label "A" - in a similar manner to the present coding, the user can 

set-up DEDX (to be stored In 'FBADA') at this point, instead of having 
just "DEAD". 



cf . label "B" 


- insert 


BSl 


TREDY 


LD 


DATA 


SLA 


14 


BSC L 


PRO, - 


LIBF 


PAUSE 


DC 


FPRCT 



PRO {next instruction) 

and add set-up fa: FEFX (to be stored ir. 'FPRCT') at 'A'. The above 
coding will display FEFX if a tape is file-protected on a write command. 
The user can terminate the job, <x can replace the file - protect ring 
and press program start, which will cause the write command to be 
executed. (Note: the above coding may necessitate some address- 
ing changes in other sections of the program.) 

3. of label 'WTEOR' - change the coding as follows: 



WTEOT ■ 


UBF 




PAUSE 




DC 




FEOTD 


BRN 


MDX 




* 




MDX 


L 


C003,-l 




MDX 




TMEOT 




MDX 


L 


C003, +3 




MDX 




RWU 



and add set-up fw FEOX (to be stcared in 'FEOTD') at 'A' . 

The above coding will display FEOX when the end-of-tape marker is 
sensed during the execution of a write or write tape mark command. 
If the user presses program start, normal EOT action will be taken; 
if the user puts /70FB into 'BRN' from the console and then presses 
program start, the routine will exit without writing the tape marks or 
unloading the tape (hence, blocks could be written beyond the EOT 
marker) . If another write or write tape mark command is executed (but 
before a backspace, which would reset the EOT indicator), the routine 
will again pause with FEOX in the accumulator. If the user now wants 
to execute ncs-mal EOT procedures, he must put /7000 into 'BRN' and 
press program start. 
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4. cf label 'A' and 'PERM' - for the non-correctable read/write error 

message, the user could set-up /BDNX (to be stored in 'FBAD') 
at 'A' so that N denoted read, write, or write tape mark and X de- 
noted the tape unit. In addition, the coding at 'PERM' could be 
changed in a manner similar to the change noted in 3 . above, so 
that the operator could cause a branch to 'ERROR' , thus causing the 
operatiot to be retried when program start is pressed. 

NOTE: the user could write his own LIBF routines to act as error routines: 
the LIBF calls would replace the UBF PAUSE calls . Then these errcr routines 
could do the necessary program resetting without the need for operator 
intervention. 

7-12. WORD COUNT TO BYTE COUNT CONVERSION (MAGT) 

For some applications. It may be desirable for the user to be able to specify 
a byte count rather than a word count. The 2954 RPQ Selector Channel 
transfers data on an even byte count. If the count is odd and the command 
is write , the rightmost byte of the last word is ignored and Just the desired 
number of bytes is tremsferred; however, if the command is read, the rightmt^ 
byte of the last word is zeroed — hence, this last byte must be saved and 
restored when the count is odd a:nd the command Is read. The following 
coding will accomplish this. 

delete the SLA 1 command from location labelled 'ONE' 
delete the SRA 1 command from location labelled 'TWO' 

Just before 'MTBEN', insert 

just before 'BTflCT' , insert 

at the end of the program, insert: 
ODD 

LOAD 
ODSET 

LASTW 

at location labelled 'THREE', replace S MT006 with S MTCMN. 
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LD 




inha 


BSC 


L 


ODD.E 


LD 




INITA 


BSC 


L 


ODSET, E 



SRA 
A 




1 
INITA+2 


STO 




LOAD+1 


LD 


L 


*-* 


AND 




OOFF (label 'MTMK3') 


STO 


L 


LASTW 


BSC 


L 


MTBEN 


LD 


I 


LOAD+1 


OR 




LASTW 


STO 


I 


LOAD+l 


BSC 


L 


BYTCT 


DC 








// JOB 

// ASM 

*LIST 7-2/. 

•PRINT SYMBOL TABLE 

•LEVEL 4 

0000 140478CO 

0000 6A17 MAGT 

0001 00 66fl0QOO0 

0003 7004 

0004 0000 MINT 

0005 01 4C0000D7 
0007 0001 
OOOfl 6911 
0009 01 6500009A 
OOPB D900 
OOOC 280E 
GOOD C200 
OOOE IROC 
OOOF 01 740000A1 

0011 700C 

0012 01 4C20000F 

0014 7201 

0015 6A07 

0016 C900 

0017 00 "7^000000 MTRET 

0019 00 6*5000000 
OOIR 2000 
OOIC 00 4C400000 
OOIE 01 4C200022 

0020 7201 

0021 70F2 

0022 6A7A 

0023 01 74FF00A1 

0025 inoo 

0026 D13A 

0027 Dl3fl 
002fl 910A 

0029 01 4C3n0063 
002B fll59 
002C OOIF 
0021) D158 
00 2 E C200 
00 2F KIOD 

0030 t;90C 
00 31 PI 19 
0032 0121 
00 3 3 mOF 

0034 lOOC 

0035 IfiOA 

0036 D13B 

0037 ClOfl 
003B 0157 

0039 0920 MrCSS 
00 3 A 70 FF 

003H C116 WAKET 

00 3C El 36 

■^03D 01 4C6000i9 

''0 3F C13C 

0040 01 4C2fl0063 

0042 CUD 

0043 lOOA 
.144 01 4C020047 

O'W.6 n 7tl9 



LIBR 


ISS 


05 MAGT 4 


STX 


2 MTRET+l 


LOX 


12 


MDX 


•+4 


DC 





BSC 


L MTRRR 


DC 


1 


STX 


1 MTRET+3 


LDX 


LI MTSV 


STD 


1 


STS 


MTRET+4 


LD 


2 


SKA 


12 


MDX 


L MTBSY»0 


MDX 


MTRET+7 


BSC 


L *-5»2 


MDX 


2+1 


STX 


2 MTRET+6 


LDD 


1 


■ LDX 


L2 


LDX 


LI 


LDS 





BOSC 


L 


BSC 


L •+2t2 


MDX 


2 +1 


MDX 


MTRET-3 


STX 


2 MTSV+3 


MDX 


L MTBSY»-1 


NOP 




STO 


1 MTFUN-MTSV 


STO 


1 RWRSW-MTSV 


S 


1 MTFMX-MTSV 


BSC 


L MTILL»2- 


A 


1 MTRGO+1-MTSV 


STO 


MTGO 


STO 


1 VTRGO-MrSV 


Li) 


2 


AND 


1 MTOUF-MTSV 


OR 


1 MTMK7-MTSV 


STO 


1 INIT+1-MTSV 


STO 


1 TSSEA+1-MTSV 


STO 


1 GEST+1-MTSV 


SLA 


12 


SRA 


4 


STO 


1 MTINT-MTSV 


LD 


1 TSRET-MTSV 


STO 


1 ILSGO+1-MTSV 


XIO 


1 TSSEA-MTSV 


MDX 


»-l 


LD 


1 MTUST-MTSV 


AND 


1 M0050-MTSV 


BOSC 


L MTCSS»2 


LO 


1 CSTAT-MTSV 


BSC 


L MTILL.+Z 


LD 


1 TSDAT-MTSV 


SLA 


10 


BSC 1 


L RE0Y»C 


MDX 


viTNR 



LIBF ENTRANCE 
LOAD A(LIB+1) 

INTERRUPT ENTR 



SAVE XRl 
SET ADDRESSING 
SAVE ACC & EXT 
SAVE STATUS 
LOAD CONTROL P 
ISOLATE FUNCT. 
TEST ROUTINE B 
NOT BUSYtBRANC 
BUSYf LOOP IF 
FORM LIBF+2 
■ FSTORE RETURN 
RESTORE ACC & 
RESTORE XR2 
RESTORE XRl 
RESTORE STATUS 
EXOT TO USER/I 
IF NOT TESTt C 
FORM LIBF+2 
RETURN VIA LIB 
STORE A(LI8F+1 
SET ROUTINE BU 

SAVE FUNCTION 
SET READ/WRITE 
TEST FUNCTION 
IF+t ILLEGAL f 
RESTORE FUNC. 
STORE FuNCT(r«!0 
SET RECOV ENTR 
RELOAD CONTROL 
ISOLATE DEVICE 
FORM DD8X 
STORt: IN lOCC 
STORE IN XSENS 
STORE IN RECOV 



/OXOO 

SET RETURN 
FETCH SENSE DA 
WAIT INTERUPT 
LOAD UNIT STAT 
ISOLATE BUSY. 
IF BOTH OFF* C 
LOAD CHANL STA 
IF NON-EXIST» 
LOAD SENSE DAT 
SET TU-A. TU-B 
IF READY* BRAN 
NOT READY. EXI 



BITS 
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PACE 



0047 01 


4C680039 


REDY 


BOSC 


L MTCSS»Z+ 


IF BUSY* RETES 


0049 01 


6680009D 




L.DX 


12 MTSV-H3 


RESTORE AtLIBF 


004B 


7000 


MTGO 


MDX 


* 


INITIAL BRANCH 


004C 


7021 




MDX 


MTRD 


READ 


0041) 


7025 




MDX 


MTWEN 


WRITE/W 


004E 


7024 




MDX 


MTWEN 


WRITE/WOUT 


004F 


7009 




MDX 


MTLP 


REWIND 


0050 


7038 




MDX 


MTIEN 


REWIND-UNLOAD 


0051 


7007 




MDX 


MTLP 


BSP 


0052 


7033 




MDX 


MTBEN 


WRITE TAPE MAR 


0053 00 


C6800000 




UD 


12 


LOAD CONTROL P 


0055 


1804 




SRA 


4 


POSITION CODE 


0056 


E069 




AND 


MTMK3 


FORM OOOX+3 


0057 


E937 




OR 


1 MT003-MTSV 




0058 


7034 




MDX 


MTlEN+4 


PROCEED TO STOR 


0059 


C05D 


MTLP 


LD 


TSDAT 


IF AT LOAD PT» 


005A 


lOOC 




SLA 


12 


BACKSPACE 


005B 01 


4C100G89 




BSC 


L MTIEN*- 




005D 01 


740100A1 




MDX 


L MTBSY»+1 




00 5F 


70B4 




MDX 


MTRET-3 




0060 


C13B 


MTNR 


LD 


1 MTINT-MTSV 


LOAD 0X00 


0061 


E85F 




OR 


MTMK6 


FORK 4X00 


0062 


7001 




MDX 


MTILL+1 


EXIT THRU DV N 


0063 


C062 


MTILL 


LD 


MTECD 


LOAD ILLEGAL C 


0064 01 


66B0009D 




LDX 


12 MTSV+3 


RELOAD A(LIBF+ 


0066 


72FF 




MDX 


2-1 


FORM A(LIBF) 


0067 00 


6E000028 




STX 


L2 40 


STORE A(LIBF) 


0069 


6229 




LDX 


2 41 


SET 41 AS RETU 


006A 


6AB2 




STX 


2 MTRET+6 




006B 01 


740100A1 




MDX 


L MtBSY»+l 


SET ROUTINE NT 


006D 


70A9 




MDX 


MTRET 




006E 


6233 


MTRD 


LDX 


2 51 


SET RETRY CNT 


006F 


6A3A 




STX 


2 RECNT 




0070 


6210 




LDX 


2 16 


SET READ MIN 


0071 


6A60 




STX 


2 RWRSW 


SET READ/WRITE 


0072 


7C03 




MDX 


»+3 




0073 


6204 


MTWEN 


LDX 


2 4 


SET WRITE CNT 


0074 


6A35 




STX 


2 RECNT 




0075 


620C 




LDX 


2 12 


SET WRITE MIN 


0076 


6A25 




STX 


2 MTSV+2 


SAVE MIN 


0077 01 


66B0009D 




LDX 


12 MTSV+3 


RELOAD A(LIBF+ 


00 79 00 


C6800001 




LD 


12 1 


LOAD WORD CNT 


007R 


D024 




STO 


MTSV+6 


SAVE WORD COUN 


007C 


1001 oV£ -"-* 


w SLA 


1 


MULT COUNT"BYT 


007D 


D036 




STO 


INITA 


STORE BYTE COU 


007E 


901D 




S 


MTSV+2 


IS CNT OVER MI 


007F 01 


4C280063 




BSC 


L MTILL»2+ 


IF NO* BRANCH 


OOPl 


7201 




MDX 


2 +1 


FORM LIBF+2 


0082 


C200 




LD 


2 




O0R3 


OOIB 




STO 


MTSV+5 


SAVE A (AREA) 


00R4 


8027 




A 


Ml 


INCRM. TO A(EF 


OnR5 


0030 




STO 


INITA+2 


STORE AtAREA) 


00B6 


C201 


MTBFN LD 


2 1 


LOAD A(ERR) 


0087 


0016 




STO 


MTSV+4 


SAVE A<ERR) 


0088 


7201 




MDX 


2 +1 


FORM LIBF+3 


00fl9 0] 


I 658000D4 


MTIEN LDX 


11 MTFUN 




OOBB 0] 


L C50000C6 




LD 


LI MTCCS-1 


SET CODE 


OORD 


D027 




STO 


INITA+1 


INTO CCW 


008E 


COIF 




LD 


AILL2 


RESET ILSGO AD 


008F 


D061 




STO 


ILSGO+1 




0090 


71FF 




MDX 


1 -1 


TEST FOR READ 


0091 


6B41 




STX 


EOTSW 


SET EOT SWT IF 
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PAGC 



00 92 on 


1 74000032 




MDX 


L 50»Q 


0094 


70 0? 




MDX 


*-t-2 


00*^5 OU 


7401003? 




MDX 


L 50»+l 


OO^? 


OHIA 


EXtC 


XIO 


INIT 


nncjfi 01 


4COOO0i<+ 




RSC 


U MTRET-3 


no9A 


0007 


MTSV 


B3S 


E 7 


nnAl 


0001 


MTBSY 


oc 


1 


OOA? 1 


JC3R 


TSRFT 


DC 


WARET 


00 A3 


>f 3 


TSCSW 


DC 


/DF03 


OOAA 


■^008 


MTFMX 


DC 


S 


00A5 


OOOC 


MTWSV 


DC 





00 A6 


ODPO 


MTMK7 


DC 


/DDSU 


00A7 


OOOF 


MTUOF 


DC 


/OOOF 


OOAf^ 1 


OOAA 


GEST 


DC 


GtST+2 


0OA9 


ODOO 




DC 


/DDOO 


'-'OAA 


000 


RECNT 


DC 





nOAR 


000 




DC 





OOAC 


0001 


Ml 


DC 


1 


OOA') 


OF 06 


INSTA 


DC 


/DF06 


OOAF 1 


00F2 


AILL2 


DC 


ILSGO+2 


OOAF 


DFOO 


IM.STB 


DC 


/DFOO 


oono 


0000 


VTUST 


DC 





OORl 


OOOC 


MTCMN 


DC 


12 


COB?. 1 


O0R4 


IN IT 


DC 


INITA 


OOP 3 


0000 




DC 





00 R4 


0000 


INITA 


DC 





00R5 


0000 




DC 





0OR6 U 


0000 




DC 





OCR 7 


.0003 


TSDAT 


BSS 


3 


OORA 1 


OOflC 


TSSFA 


DC 


TSSEA+2 


00 '^P 


0000 




DC 





00 RC U 


006 


MTa06 


DC 


6 


00 RD 


0004 


MTJ04 


DC 


4 


OOFU" 1 


noR7 




DC 


rSDAT 


OOf^P 


0011 


MTMK2 


DC 


/OOll 


00 CO 


OOPF 


MTMK3 


DC 


/OOFF 


ooci 


4000 


MTM<6 


DC 


/4000 


oor^ n 


OOOA 


MIO 


DC 


10 


OOCI 


n003 


RSPCT 


DC 


3 


oor^ 


04 


PSPSW 


DC 


4 


''0C5 


0003 


FSPSW 


DC 


3 


mr6 


4001 


N'TECD 


DC 


/4001 


oor? 


0002 


WTCCS 


DC 


/00CJ2 


orcH 


?ooi 




DC 


/2001 


00C9 


2001 




DC 


/2001 


'lOCA 


0007 




DC 


/00U7 


0Ov'-=5 


JWOF 


R'\'UC 


DC 


/OOUF 


OOCC 


)(?7 


PSPC 


DC 


/Q027 


coco 


nriF 


TMC 


DC 


/OOIF 


OOCtl 


0017 


FRASC 


DC 


/0017 


■■OCF 


0037 


FSPC 


DC 


/0O3 7 


:)Ono 


50 


M00 5U 


DC 


/U050 


OODl 


0003 


Mr003 


DC 


3 


'■'0,0? 


0000 


RWRSW 


DC 





0003 


0001 


FOTSW 


DC 


1 


00 04 


0000 


N'T FUN 


DC 





0005 


OOOC 


MTINT 


DC 





0006 


OOOO 


CSTAT 


DC 





00 07 


'^«D6 


MTRRR 


XIO 


INSTR-1 


OODFt 01 


6500009A 




LDX 


LI MTSV 


00 OA 


6A3A 




STX 


2 TLKP+l 


00 OF^ 


6?00 




LDX 


2 



INCRM ISS COUN 
INITIATE I/O 
RETURN TO USER 
STORAGE AND CO 



TtST CHANL STA 



INITIALIZE FHR 
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PAGE 



OOOC 

OODD 
OODE 
00 FO 
nOEl 
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// JOR 

// ASM 

*LisT 7-a.aL. 



00 00 
0001 
000? 
0003 
00 OA 
0005 
000 6 
0008 
0009 
OOOA 
OOOR 
OOOC 

nooD 

00 OE 
no OF 
ooin 

00 11 

0012 

001 3 

0014 

0015 

0016 

0017 

OOlfl 

0019 

001 A 

OOIR 

OOIC 

0010 

00 IE 

OOIF 

00?0 

00?1 

00?2 

00? 3 

00?4 

00? 5 

00?6 

00?7 

00?R 

00?9 

00?A 

00?B 

00?C 

00?D 

00?E" 

00?F 

00 30 

0031 

003? 

0033 

0034 

0035 

00 36 
0037 

003P 
00 39 
003A 
003R 
003C 
0030 



0000 

?0 176558F1 

3100 

?0 176558F1 

0000 

70Fn 

01 4C800000 

40F7 
. 6105 

?0 J3059130 
U IC 00 

1 i^lSS 

?0 ??5C5144 

0000 

1 0154 
1 0190 
0040 

?0 03059130 
0000 
70F0 
20 14047BC0 

?000 

1 019C 
1 O0F5 

?0 140478C0 
0000 
70FD 
7 IFF 

70EC 

4060 

406C 

4071 

6105 

140478C0 

1000 

019C 

0OF5 

140478C0 

?001 

019C 

00F5 

14047flC0 

0000 

70FD 

71FF 

70F3 

140478C0 

1000 
Oi9C 

)CF5 
4063 
4062 
4067 
6105 

l4047flC0 
1001 
019C 
OOFS 
406B 
71FF 
70F9 
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1 
1 

?0 


1 
1 

?0 









?0 



1 
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SPACE DC 

LIBF 
DC 

LIBF 
DC 
MDX 
BSC I 
BEGIN BSI 
RD LDX 
LIBF 
DC 
DC 

LIBF 
DC 
DC 
DC 
DC 

LIBF 
DC 
MDX 
LIBF 
DC 
DC 
DC 

LIBF 
DC 
MDX 

MDX ] 
MDX 
BSI 
BSI 
BSI 
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DC 
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DC 
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DC 
DC 
DC 

LIRF 
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LIBF 
DC 
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DC 
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*-3 
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CARDO 
/lOOO 
INPUT 
SPEED 
/OOOO 
INPUT+1 
INPTA+1 
72 

CARDO 


*-3 
MAGI 
/2000 . 
INPTA 
ERRTP 
MAGT 


»-3 
. -1 
RD+1 
WTMO 
WTMO 
RWDO 
5 

MAGT 
/lOOO 
INPTA 
ERRTP 
MAGT 
/2001 
INPTA 
ERRTP 
MAGT 


»-3 
-1 

TRAN 
MAGT 
/lOOO 
INPTA 
EOTSK 
WTMl 
WTMl 
RWDl 
5 

MAGT 
/lOOl 
INPTA 
ERRTP 
PRNT 
-1 
PRN 
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003E ^063 

003F 4062 

.0040 4061 
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0042 405F 
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0057 20 14047fiC0 

0058 1000 
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005A 1 00D8 
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005C 2000 
005D 1 019C 
n05E 1 OOFS 
n05F 20 l4047flC0 

0060 6000 
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0063 20 140478C0 

0064 6000 

0065 20 140478C0 

0066 1000 

0067 1 019C 

0068 1 00E2 
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0075 1000 

0076 1 0106 

0077 1 OOCE 

0078 403B 

0079 20 140478C0 
007A 1000 
007B 1 J120 



BSI 


BKSPl 


BSI 


BKSPl 


BSI 


BKSPl 


BSI 


BKSPl 


bsi 


BKSPl 


BSI 


SPACE 


LDX 


1 5 


LIBF 


MAGT 


DC 


/lOOl 


DC 


INPTA 


DC 


EOTSK 


BSI 


PRNT 


MDX 


I -1 


MDX 


RPD 


LIBF 


MAGT 


DC 


/lOOl 


DC 


INPTA 


DC 


EOTSK 


LDX 


1 5 


UIBF 


MAGT 


DC 


/lOQO 


DC 


INPTA 


DC 


ERRTP 


MDX 


1-1 


MDX 


PRO 


LIBF 


MAGT 


DC 


/lOOO 


DC 


INPTA 


DC 


ETERM 


LIBF 


MAGT 


DC 


/2000 


DC 


INPTA 


DC 


ERRTP 


LIBF 


MAGT 


DC 


/6000 


LIBF 


MAGT 


DC 


/6000 


LIBF 


MAGT 


DC 


/6000 


LIBF 


MAGT 


DC 


/lOOO 


DC 


INPTA 


DC 


REINT 


BSI 


RWDO 


BSI 


SPACE 


LDX 


1 11 


LIBF 


MAGT 


DC 


/looo 


DC 


INPTA 


DC 


RWURE 


BSI 


PRNT 


MDX 


X -1 


MDX 


LAST 


BSI 


SPACE 


LIBF 


MAGT 


DC 


/IQOO 


DC 


BLKLW 


DC 


ERLOW 


BSI 


PRNLO 


LIBF 


MAGT 


DC 


/lOOO 


DC 


BLKHI 
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PA(,t 



0n7C 1 nOF5 DC ERRHI 

00 7D f40h3 BSI PRNHI 

007F 6103 LDX 1 3 

007F 20 140A78C0 SKIP LIBF MAGT 

OOHO 1000 DC /lOOO 

OOfil 1 01?0 f>C RLKHI 

00 R2 1 OOCE DC ERLOW 

00fl3 403n BSI PRNHI 

00R4 71FF MDX 1-1 

00R5 70F9 MDX SKIP 

0086 ?0 140478C0 LIBF MAGT 

0np7 5000 DC /5000 

OOPR ?0 140478C0 LIBF MAGT 

0OP9 0000 DC 

OORA 70FD MDX »-3 

OORR 603B ' EXIT 

00 RC 0000 WTMO DC 

OOflO ?0 l40'»7aC0 LIBF MAGT 

CORE 7000 DC /7000 

008F 1 00F5 DC FRRTP 

0090 01 ACflOOOfiC BSC I WTMO 

0092 0000 RWOO DC 

nOQ"? ?0 U047flC0 LIBF MAGT 

0094 4000 DC /4000 

0096 01 4Cfl0Q092 BSC I RWDO 

0097 0000 WTMl DC 
OOOfl 20 l4047flC0 LIBF MAGT 
0009 7001 DC /7001 
009A 1 OOFS DC ERRTP 
009B 01 4CP0Q097 BSC I WTMl 

onon 0000 Rwni dc o 

019E 20 14047RC0 LIBF MAGT 

0n9F 4001 DC /4001 

OOAO 01 4Cfl0009U nsC I HWDl 

'^OA? vHOO RKSPl DC 

^;nA3 ?0 U0478C0 LIBF MAGT 

00A4 6<^0l PC /6001 

0nA5 01 4CR0OOA2 BSC I BKSPl 

0OA7 0000 PRNT DC Q 

OOAR 20 V4047flC0 LIBF MAGT 

nOAO 0000 DC /OOOO 

OOAA 70Fn MDX *-3 

nOAH 20 17ft55flFi LIBF PRNTl 

OOAC 2000 PC /2000 

OOAO 1 019C DC INPTA 

OOAE 1 OOFS DC EHR 

OOAP 20 17A85BF1 LIHF PHNTl 

OORO 0000 DC 

OORl 7QFD MDX »-3 

00H2 01 4Cfl000A7 BSC I PRNT 

0nfl4 OQOO PRNLQ DC 

0.-)RS 20 14047HC0 LIBF MAGT 

0086 0000 DC 

0nR7 70FD MDX #-3 

OORR 20 17A95BF1 LIBF PRNTl 

O'-R" 2000 DC /2000 

nSnn } ^^^^ ^^ B»^KLW 

OORR 1 00F% DC ERR 

OORC 20 176S58F1 LIHF PRNTl 

OORD 0000 DC 

OORF 70FD MDX #-3 

OOPF 01 4CflOO0fl4 BSC I PRNLO 
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/2000 




00C7 


1 
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00C8 


1 


J0F5 




DC 
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onc9 


20 
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70 Ff) 
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*-3 
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OOCF 
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ERRCK 




oono 
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OODl 


01 


740400DO 
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L 
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0003 


01 


4C8000CE 




BSC 


1 


ERLOW 




O0D5 





1010 




SLA 




16 




GOD 6 


01 


4C8000CE 




BSC 


I 
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00D8 
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ETERM 
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n0D9 





40 IF 




BSI 




ERRCK 




OODA 
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# 




CODR 


01 


740400DA 
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L 
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01 


4Cfl000D8 
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I 


ETERM 
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SLA 




16 




OOEO 


01 


4Cfl000D8 




BSC 


I 


ETERM 




OOE? 
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RE I NT 
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OOF 3 





4015 




BSI 




ERRCK 




O0F4 





1801 




SRA 




1 . 




OOF 3 


01 


4C8000F2 




BSC 


I 


REINT 




0:.)E7 
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RWURE 


DC 









OOFS 





4010 




BSI 




ERRCK 




0OE9 





1000 




SLA 




13 




nOEA 


01 


^CPflOOEE 




BSC 


L 


EOT»+Z 




00 FC 


01 


4C8000E7 




BSC 


I 


RWURE 




OOFt 





7000 


EOT 


MDX 




« 




OOFF 


01 


740400EE 




MDX 


L 


EOTt+4 




OOFl 


01 


4C8000E7 




BSC 


I 


RWURE 




OOF 3 





1801 




SRA 




1 




0nF4 





70FC 




MDX 




#-4 




00F5 





0000 


ERRTP 


DC 







RETRY ONLY 


00F6 





4002 




BSI 




ERRCK 




00F7 


01 


4C8000F5 




BSC 


I 


ERRTP 




00F9 





0000 


ERRCK 


DC 









OOFA 





FOOA 




AND 




FOFF 




OOFP 


. 


9007 




S 




ONE 




OOFC 


01 


4C200100 




BSC 


L 


NOiZ 


» 


OOFE 


20 


17064885 




LIBF 




PAUSE 




OOFF 


1 


'^104 




DC 




DEAD 




0100 





8002 


NO 


A 




ONE 




0101 


01 


4C8000F9 




BSC 


I 


ERRCK 




0103 





0001 


ONE 


DC 




I 




0104 





DEAD 


DEAD 


DC 




/DEAD 




0105 





FOFF 


FOFF 


DC- 




/FOFF 




0106 





0019 


BLKLW 


DC^ 




25 




0107 




0019 




BSS 




25 




0120 





0032 


BLKHI 


DC 




50 




0121 




0032 




BSS 




50 




0153 


f) 


0048 


INPUT 


DC 




72 


COLUMN CNT 


0154 




004 8 




BSS 




72 




019C 





0024 


INPTA 


DC 




36 


WORD CNT 


0I9D 




0024 




BSS 
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0OF5 
OOFS 
00F5 

nic2 0008 



PAGE 



ERRHI 


EQU 


ERRTP 


ROTSK 


EQU 


F.RKTP 


ERR 


EOU 


ERRTP 




END 


BEGIN 



NO ERRORS IN ABOVE ASSEMBLY. 
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// XEQ 



TESTM 7-22-4, 
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IVi^ PRO^'^AM TESTS THE MAGT SUBROUTINE FOR MAGNETIC TAPE I/O FOR THE IBM 

UH]r\ Inh apk°t pm'o^'''^ ^"^ ^'^^^^ °'^ ^'^'^^ ^^^^ =>• ARE TRANSFERED TO 
ApJ Dc*oc^2 "'' THEN PRINTED. UNIT 1 IS THEN BACICSPACED AND THE RECORDS 

rJ r^^n^Sprr riK^t"-^' ^ '^^' "^ ^"^ EOT-ON-READ RECOVERY CHOICES AND 
THE INCORRECT LENGTH RECOVERY CHOICES ARE TESTED ON TAPE UNIT 0. 



40 



THIS PROGRAM TESTS THE MAGT SUBROUTINE FOR MAGNETIC TAPE I/O FOR THE IBM 
1130. FIVE CARDS ARE READ AND STORED ON TAPE UNIT 0» ARE TRANSFEKED TO 
UNIT 1, AND ARE THEN PRINTED. UNIT 1 IS THEN BACKSPACED AND THE RECORDS 
ARE RE-READ. FINALLY* A TEST OF THE EOT-ON-READ RECOVERY CHOICES Ai\D 
THE INCORRECT LENGTH RECOVERY CHOICES ARE TESTED ON TAPE UNIT 0, 
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IhM 



ak^rJIread/ Fi^'uvrr 'sror'^H'-'--^^ then backspaced an. tmc reck 

HF IMCO^^FCT UENurn K^vA^ytKY slHuK^:. AKL TcofEi^ C. TAPE UM T ;■ . 
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THIS PROJHAM TESTS THE MAGT S RRO TINE FOR MAGNETI 

ni??*i ^lll A^J^fJ?^' ^EA'^^^'^ STORED ON TAPE UNIT 0. ARE TRANSFtlHEO TO 

ASr^p'oPAn ^^arl"".^^^^^"'^^* ^^ ^ ^ ^^^ ^^^"^ BACKSPACED AND THE KECORDS 
ARE RE-READ. FINALLYt A TEST OF THE EOT-ON-READ RECOVERY CHOICES AND 
THE INCORRECT LENGTH RECOVERY CHOICES ARE TESTED ON TAPE UNIT 



\j » 
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// JOB 












// ASM 












♦LIST 


7-13. 










»LEVEL 


4 




ILS 


OA 


t 


0000 


0438 


ADDRA 


* DC 




/C438 


0001 


0734 




DC 




/0734 


0002 


0435 




DC 




/0435 


0003 


0436 




DC 




/043& 


0004 


0000 


ILS04 


• DC 




Q 


0005 


f)812 




STD 




7 E,"-'P4 


0006 


280C 




STS 




r>iT46 


0007 


69CA 




STX 


1 


,\T44+1 


00 8 


6104 


iNT42 


LDX 


1 


4 


0009 


0810 




xio 




SCNS4-1 


OOOA 


1140 




SLCA 


1 





GQOB 01 


C500001E 




LD 


LI 


DEVC4 


JOOD 01 


4C180023 




BSC 


L 


SCTST i+- 


OOOF 01 


4580FFFF 




BSI 


11 


ADDR4-1 


0011 00 


65000000 


NT44 


LDX 


LI 





0013 


2000 


NT46 


LDS 




c 


0014 


C803 




LDD 




TEMP 4 


0015 01 


4CC00004 




BOSC 


I 


ILS04 


0018 


0002 


TEMP4 


BSS 


E 


2 


OOIA 


OCOO 




DC 







00 IH 


0300 


SENS4 


DC 




/J300 


OOIC 


0000 




DC 




■J 


OOID 


DBOO 


INST 


DC 




/DBOO 


00 IE 


0000 


DEVC4 


DC 







00 IF 


0000 




DC 




4 


0020 


1701 




DC 




/1701 


0021 


)f 01 




DC 




/OFOl 


0022 


IFOl 




DC 




/IFOl 


0023 


08F€ 


SCTST 


XIO 




INST-1 "^ 


0024 


lOOC 




SLA 




12 


0025 01 


^ClOOOll 




BSC 


L 


NT44t- 


00 2 7 01 


44800000 




BSI 


I 


ADDR4 


00 29 


70F7 




MDX 




.MT44 


00 2 A 






END 




a» 



NO ERRCiS Ii\ ABOVE ASSEMBLY. 
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// JOB 
// ASM 



*LIST 


7-ZH. 








*PRINT 


SYMBOL TABLE 




LIF^R 




on 00 


140/*7<?Ef^ 




ENT 


MAHTZ 


onoo ri 


7005 


MAGTZ 


N"DX 


ENTRY 


■1001, (K) 


4CC0O0OO 


^XIT 


ROSC 


I «-« 


noo'^ 


0037 


rioo 


DC 


50 


O')0U 


0003 


coo 3 


DC 


3 


00 5 


'^OOO 


AWFA 


DC 





ornc 




rOflllF 


E-Ol) 


60 


nno«, 01 


'it-COnOFl 


FMTRY 


LDX 


LI FXI.^T 


B 00 


M 00 on or 




STX 


H 12 


OOOA 


^^^c 




LDX 


1 lopur 


OOOR 


70 




S 


coo? 


00 OC 


nn7n ■ 




STO 


RDVv.RT 


n 01 


AC?R0013 




nsc 


1. *+/+# + ? 


nnor o 


io 1 




SLA 


lA 


O'Tin 01 


'■■)400noil3 




STO 


L "^OTSW. 


001? 


ro77 




LD 


RDWRT 


oon 


/* S fl 




PSC 


+ 


00 1/*' 


CP70 




L. 


lJNlT-1 


00 15 n 


1000 




Sl.T 


. 1>^ 


OOlf 01 


040f!C0A/^ 




S 


L incc? 


1 01 


lUr^noo^r^ 




BSC 


L PAT^Z- 


oniA 1 


f^^nr.or.Af, 




A 


L i;)CC2 


"1 1 1" f^ 


00 7(^ 


A 


f^TO 


UN I T 


nnin n 


F'^f->r 


JOR 


FOFO 


rm F 


nof,f-) 


1 


LSTO 


FOF!^ 


00 if' n 


ro7o 




ID 


IOCC+1 


00 ?0 


roAF 




AND 


FFOO 


no?i 


^fl71 




OP 


'liJIT 


on*)? n 


F « A n 




OR 


00 po 


n -) 7 7 r 


'^075 




STO 


locc+i 


n '> p 6 .'^ 


P "^ ? 




STO 


T?sr,\ + i 


r - T c p 


'■v-170 




STO 


5DATA+1 


'l -, 7 A O 


6 ? "^ f" 




LDX, 


2 61 


."^ ', -■ 7 ," 


'SAO'-> 




STX 


2 AT^^FA 


p T -3 » ■ n 


r A 1 




L^^ 


RDV'iVT 


'ip ?o r ] 


A r 7 P '» ? 




"SC 


L RFADt+Z 


-n?i. .-,^ 


AriHOOAP 




p %r 


L |>/RIT»+- 


."i n 7 TA n 


-.t^A 




c. 


CO'-^l 


'■• '-, 7 r 1 


/i r 1 R "■ n ■? 7 




r><r.Q 


L pt--i.'n,+- 


-^ n T '^ n 


0'^r,7 




c. 


rooi 


jr.?i 1 


^ C 1 P (^ '"' "^ 9 




B^r 


L PSPC.+- 


nn-^-^ 


1 1 n 




SL^ 


If 


n -^ /+ 


0055 




f-^TT' 


ppii.p T 


"1 3 5 r 


rn73 




I. ■■:■ 


C-'f^p 


O'^^f. n 


7n?l 




vny. 


F^:TIO 


n (1 -^ 7 p 


cof-,c 


nf-' -n 


L^^ 


CRT WO 


r^ n ? p f-, 


/an 




■■A n X 


p 5 p f + 1 


n 7) :» o '> 


'( 6n 


"SPr 


L/^ 


CRSDC 


n 'J A r 


lOQf, 




S^T 


16 


'■) n T '; n 


A 3 n 




B5I 


TRFOY 


o-nc ^ 


ro73 




LP 


DATA 


') 3 '■'1 n 


1 P 3 




SRA 


3 


pn3r 0] 


^cn-;*oooi 




F'SC 


I. EXIT.F 


/!» r; n 


1000 




5LT 


16 


10^+1 -^ 


701^, 




VOX 


EMTIO 


-'I /(. ? "> 


i"'-ro 


pi- AH 


L D 


CI 00 


■ -N /4 -a 


rifi/,7 




STO 


FRT5T 


- .^, h /♦ -^ 


ro4f^ 




L'^ 


ocr:T 


n, >/;.-, -, 


imo 




STO 


1 



ISS CALL FNTRY 

CALL EXIT 

READ RETRY COU\T 

WRITF/WTM RETRY CNT 

SAVE 

SET IMTER ADDP 



SAVE OP COD^ 
IE READ* BRAfviCH 
IE t-ir READ* SET E'^-TSW Off 



TETEST FOR PD/W IF \T £KP 
IE RD/W» l.)SE OLD U ■■U T 



IF \0-0P» P.RA' CH 

PES,ET UMT 
Fd-vv EOFx 

Af-,iD STORF 



lOCC r>F\./irF 
SET 'I" 

SET CUNT 

L'iAD 03 C'>DE 

!-FAD 

WPITE 

-[■WIND 

'^Ark-SPACE 

£"T RDV'RT TH v.!'ITf" FOR wf 

'-" E T P I F £ 
"'.:■ 'E FILE 



TEST DEV "^OY 

SET LP .VARKFR 
EXIT It^ O^ 



■'-■EAD 

SFT r^FTRY COUNTED 

SET ',\ORD COUi.T 
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page; 



0046 
0047 
0048 
0049 

004A 
004B 
004C 
0040 
■)'^4E: 

rn 50 

0051 
00 53 
0^5 4 
C055 
i-»57 

00 5 8 
0059 
005A 
0050 
005C 
C0 5D 
00 5 E 
n05F 
00 60 
00 61 
00 6 3 
C0fc4 
0066 
00 6 7 

r\ ■"' / O 
iy / »j . . 

0069 
00 6A 
0061 
r0 6C 

00 60 
C 6 L 
C0 5F 
00 70 
00 71 
t'0 72 

or*?^ 

00 74 
00 7'-; 
00 76 
DO 77 
00 7 R 
0079 
00 7 A 
00 7E5 
Q07C 
0^70 

00 7f: 

'*Ofll 
00 R 3 

00 3 7 

008P 
00 8 9 
00 q A 













n 

•0 
01 



CO 













n 




01 



01 



c: 

r- 
v^ 










u 



n 











01 

'0 

1 

r>, 

01 

01 







n 



CO 5 5 
7010 
rORR 
D041. 

6?3C 
7102 
7PC1 
CIFF 
1008 

no 00 

74FFO0^i5 
70F7 
C03D 

r".oooo3C 

C04F 
D05n 
1010 
D03F 
CO 50 
0051 
lOAO 
. Ji ?5 
♦ C 75 
rc3% 

't C ? ['. « 
CO.? 6 

'^ClOOOi. 1 
1010 

f^-o^n 

62 7-1 

617R 
C 1 CU 

IPO 3 

CiOi; ' 
IPC." 
D ? 3 A 
1010 
lORR 

71Ff 
7-'^Fr 
70r7 
7UBA 

;joco 
1 CI 1 c; 

0B?3 

4061 

CG3-? 

lOOA 

4 CO,-? 00 03 

17064.«o5 

C f '. 7 

70F5 

4C63C07P, 

4Ce00077 

DFAD 

0001 

000? 

jloo 




fr.MTIO 
lOOPA 

lOQPB 

loop 



r.'JTFF 



L'^0P2 



rxiTA 



LD 
STO 

LHX 

MDX 

MDX 

LD 

SLA 

OR 

STO 

MDX 

VOX 

LO 

STO 

LD 

STO 

SLA 

STO 

LD 

STO 

SLT 

STO 

F.sr 

LD 

PSC 

Ll^ 

fiSC 

SLA 

STO 

LOX 

LOX 

LD 

SRA 

STO 

LO 

r^TF 

STO 

SLA 

SLT 

V l"^ X 
'■'DX 

•■••ox 



RFDY 

FRAOA 

COOl 

COO? 

DO'.VRT 



SLA 

STO 

XIO 

3SI 

LO 

SLA 

GSC 

LIHF 

DC 

VOX 

HOSC 

PSC 

DC 

r r 

DC 
DC 



CRFAD 
ENTIO 
C003 
ERTST 
2 lOBUF 

1 2 

2 1 

1 -2 

Q 
1 -1 

? 

L APFA»-1 

LOOPl 

OC.\'T 
L lOBlJF 

C.'.'PIT 

HOLD 

16 

F.RC.HT 

HOLD 

CClv+1 

32 

Ei'^SW 

T''J'?DY 

fIRSW 
L FRROft.Z 

RDwrn 

L EXIT.- 
16 

roTSiv 
2 i;'o 
1 IORUF+60 

1 1 
p 

2 lOBUF 

1 
p 

2 ICf'LJF-2 
16 

2 ICniJF-1 

1 -1 

LOOP? 

EXIT 



16 

NP.Slv 

SDATA 

WAIT 

OATA 

10 
L RE'DYiC 
PAUSb" 
FRADA 
TRFDY+1 
L TRFDY+1, +z 
I TREDY 
/DFAT; 
1 
•? 



WRITF 

PACK BUFFER FOR OUTPT 



IMT FCROP C\T 

LOAD CCHVAND 

SFT COOVAi^D INTO CCW 

CLEAR ERi-^OF-; SWITCH 
f.XFC OP A'.D AWAIT J-.TER 

ORA\CH IF EfR^OH 

f-AlT IF NQT RFAD 

St:T ShT TO OFF 
U'vPACK r.PUT 



TfST u:nIt RE^\-y ,.\r k.:y 

SET LNTER SWT to OFF 
FHTCH SEfiSt:' DATA 
AWAIT INTER 

SFT TUA» TUB RIT5 
IF RFADYt BRA.OCH 
IF NT RDYt INDICATE 

RETEST 

IF RUSY» RFTfST 

IF RFAOY, GO 
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PAGL 



00 HP rs 


000 


FRTST 


DC 





00 HC 


0000 


rOFD 


DC 





00. "0 n 


noro 


F.OFO 


DC 


/roFo 


• r 


rrc7 


WCTST 


DC 


-57 


OO.^F 


Froc 


FFOO 


DC 


/FFOO 


0090 


OORO 


0080 


DC 


/0080 


00 9? 


0000 




RSS F 





^^ ? 


4030 


OCNT 


DC 


/403D 


r>"» ^ 3 


0000 


UNIT 


DC 


C 


00«>/. 


0000 


FRSW 


DC 





no OS 





NOISE 


3C 





roof, I 


'-iOAA. 


TSSFN 


DC 


CCWA 


00 7 


ODGO 




DC 


/DDOO 


00«)B 1 


OC.A0 


lOCC 


DC 


CCW 


n'^nn n 


nnoo 




DC 


/DDOO 


n ■ VI A (1 


''^OCO 


SENSfc 


DC 





'"I i^ CI 


DFO? 




DC 


/DF0 3 


00 9C 


2002 


SNSWC 


DC 


/2002 


0090 


0F06 




DC 


/DF06 


Oi)')F 1 


OOAO 


SDATA 


{^C 


SDATA+2 


00 OF 


onoo 




DC 


/DDOO 


O'-iAO 


Oft 




DC 


6 


00 A 1 


00 0^ 




DC 


<♦ 


'■■•1A? 1 


■■or-o 




DC 


DATA 


O'lA^ 


■'1017 


lOCCl 


DC 


/0017 


V'^.^-!* 


00 7 


I0CC2 


DC 


/0007 


O-^A^ 


0?-' 


CRSPC 


DC 


/0027 


■'HAY, 


? 1 


I0CC3 


DC 


/2001 


■■HA? 


OO'T 




DC 


/OOOF 


o '> ,'\ o r' 


■'1 


^^s;^/ 


.DC 


■ 


'! '-^ A o 


?oir 


CFOF 


DC 


/201F 


ri'^'-.C 




CRFAD 


FQIJ 


s\swc 


■" "1 A 6 




CWRIT 


("QU 


rocc3 


(i-^Al 




r^RAS 


FQ(.' . 


lOCCl 


'■^0A4 




c^ !-:■'/[) 


rcvMj 


io:cc? 


noo/y 




FRCM 


FQU 


SF-MSF 


-OAA 


-iron 


CCi'.'A 


DC 





00 A" 


oooc 




;:c 





10 AC 







DC 





'■" A ri 


7 A 


CC'.-J 


t^r 


122 


n -I A F '■) 


00 




DC 





>" -^ A (^ 


010 




[■'C 


/0:03D 


1 :1 :5 n 


'"> 3 


DATA 


BSS 


3 


flOIT.^ 


n ;■' 


F;OT?l-/ 


or. 




O0f</t 


ocoo 


MOL"' 


DC 





'■'i'lRC, r 


n-p? 


TV[;rT 


I. r 


crop 


■'^ n n «i r. 


'v:.F7 




STO 


ccw+i 


r-''*? 01 


4C4000R9 




ROSC L 


* 


OORO 


■^oir 




B5I 


TkRDY 


00 "A n 


7 T' "^ 




f'DX 


FXITA 


nouq 


cocr 


FRRO'^ 


LP 


RO'a'RT 


i-M'C 01 


'^C30C001 




HSC L 


■^XIT.-Z 


/-, n R p J_ 


'♦c?ooor3 




BSC L 


CK^JOS.Z 


'■■•■: r •1 r 


roi-/^ 




LD 


CBSPC 


Of'fl 


onFC 




STO 


CCW+1 


O'^C? (' 


''+ 1 ? 




BSI 


TNRDY 


r ''. 


rooF 




LD 


CFRAS 


oor^t n 


'VIFO 




STO 


CCW+l 


'■Of? 


<^0OF 


FRn'.''T 


PS I 


T'.RDY 


'^ C ^> 


f n r, 3 




LD 


FRCNT 


/■ " ^ -7 r 


Q C '.'" 




A 


CUOI 


■ •■ ^ a p. 


r>f^ " 2 




STO 


F«CiNT 



START 

I/O 
SHMSE U STAT W/ RESLT 

PFAD 

SENSE PYTE C'\T 



FRASF 

REWIf'iD 
BACKSPACE 
'VR I T F 

WTV 



TEST I/O (CCW) 



'<YTFS 

COMMAND 
IiJBUF+l ADDR 



WTM 



EXIT IF HT RD/WRT 
BRANCH IF READ 
(^-.'RITE ERROR) 

HACK SPACE 
SET ERASE 

EXEC ERASE OR BSP 

INCRM ERR CMT 
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PAGE 



00 rq 


n 


90C1 




S 




ERTST 


COCA 


01 


4C0fl0C5tt 




BSC 


L 


IOOPR.+ 


^ncc 





COEl 




LD 




CCW+1 


'foro 





FODB 




EOR 




CFOF 


oncF 


ni 


4C?000EB 




RSC 


L 


PERivUZ 


CO no 


01 


7A0000B3 




^DX 


L 


EOTSWtO 


non? 





70F? 




VDX 




TMFOT 


no 03 





JtC6 




STO 




ERCiNT 


00D4 





n flP 




VDX 




IQOP 


COD 5 





OOQO, 


TNRDY 


rc 







0O'->5 





40A0 




RSI 




TRFDY 


OOP? 





1010 




SLA 




16 


00 ns 


n 


DOCF 




STO 




NBSW 


on no 





opp.r 




XIO 




lOCC 


no "'A 





4002 




nsi 




WA I T 


O'^ilB 


01 


'f»CP000O<5 




FISC 


I 


TNRDY 


(' n oi) 


'•J 


00 


WA I T 


DC 







oor-E 





C0C9 




LD 




NRSW 


oof^r 


01 


4riBoo::5F 




BSC 


L 


WAIT+1 »+ 


OOFl 


01 


4C800000 




PSC 


I 


WA I T 


00 r 3 





CORl 


CKNOS 


LD 




Noisr 


oor/» 


01 


/+c?roo5«.' 




HSC 


L 


I OOP A ,2 


on=T6 





conp 




LD 




CHSPC 


nOF7 


n 


7 one 




'^DX 




FRDiVT-1 


noFB 


?0 


17064RS5 


PER'-^ 


LIRF 




PAUSE 


00 E 9 


1 


''K)FC 




DC 




FRAD 


OOTA 


01 


ACC00063 




R5C 


L 


rnFF 


OOFC 





RADC 


FRAO 


DC 




/PADO 


■'OFD 





"OP, 9 


PAT 


AND 




I0CC3+1 


OOFF 





90P«) 




S 




COOl 


00 pP' 





noA? 




STO 




U\IT 


00 FO 





70C9 




MDX 




FRROR-1 


00 ri 





000 


FXIM 


DC 







00 r2 





nHA9 


INTRP 


XIO 




S'^Sl^C 


OOP 3 





OOQA 




S 




WCTST 


0OF4 





4fl?8 




BSC 




+z 


oors 





OOOF, 




STO 




,\CISF 


OOi-f-. 





9 A3 




XIO 




SENSE 


OOr-7 


n 


1000 




SLA 




13 


fiOTP 


1 


4C10011? 




HSC 


L 


OUTIN,- 


00 FA 


n 


1001 




SLA 




1 


00 FB 




4 >'' ? i- 




RSC 




+ Z 


f OFC 





6P07 




STX 




ERSw 


00 FO 





6 8AA 




STX 




NrtS'.v 


00 FE 





1001 




SLA 




1 


00 rp 


01 


4C10C112 




BSC 


L 


OUTIf-Jf- 


1 1 





ClAC 




LD 




CC'-'+l 


0102 


c 


5{ A3 




s 




I0CC3 


1C3 


01 


't ^ 1 = 1 1 4 




PSC 


L 


■^/T^ORf+- 


105 


01 


4 COP 01 1? 




BSC 


L 


OUT IK»+ 


107 


1 


740GUOP.3 




MDX 


L 


EOTSo;tO 


OlOQ 





7 06 




,'1DX 




R:VU 


OlOA 


01 


74C300H3 




VDX 


L 


F0TSW.+3 


! IOC 


?0 


170643P'5 




LIPf 




'^AUSF 


10') 


1 


OOPC 




DC 




EOFD 


" 1 F 


01 


4C400059 




BOSC 


L 


lOOPA 


" 1 1 





roof, 


R'//U 


LD 




iocc:^ + i 


! • 1 1 1 


n 


7 CM. 




;-;ox 




TMECT+1 


'■:) I? 


01 


4rc.O JOFl 


OUT IN 


ROSC 


I 


r:xi;a 


■ Hi* 


01 


74FF0Or4 


WTrOP 


vox 


L 


C003.-1 


"116 





709F 




■■•iDX 




TMEOT 


:-• 1 1 7 


01 


7403000'-! 




iVOX 


L 


C003f+3 



CNT OVER MAX 

NO. RETRY OPERATIOf. 

TEST FOR WTM 

IF NT WTM» INDIC. PER'^'I. F.Wk 

IF ECT» RETRY 

IF WTMt RETRY 

UNIT READY 



EXECUTE OP 
AV.AIT INTER 
f^ET AFTER INTER 



IF r.O I.JTER YET» WAIT 
RETURN AFTER INTER 

SKIP NOISE RECORD 
BACKSPACE 

IF ERR. INDICATE 

CONTIN & EXIT IF RETURNED 



SET NEW urn T 

ISS INTER RET LINK 
lOCC BYTE SEiiSE 
CHK .\CISE 



UNIT STAT. RFSFT 
SET DE 

IF Dt: NT 0,\. AWAIT SECijD INT. 
SET UC 0IT 

St T EkS'.v NON ZE.'JO 
SET NHSW NO'^J ZERO 
SET Uf:(LOTfEOr) 
IF NT 0\f EXIT 



IF WRITE. WTN(2) 
IF NT READ. EXIT 
IF READ. IS rOT Ofg 
IF YES. RWU/TFRiV, 
IF NT ON. SET 0\ 
EOF INDICATE 



EXEC RWU/TERiV 
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0119 
OllA 



7nF6 



PAGE 



MDX 
END 



RWU 
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SYMBOL TABLE 



AREA 


0005 


BSPC 


0039 


CBSPC 


00A5 


CCW 


OOAD 


CCW A 


OOAA 


CEOF 


00 AQ 


CERAS 


00A3 


CKNOS 


00 E 3 


CREAD 


009C 


CREWD 


00A4 


CWRI T 


00A6 


COOl 


0088 


C002 


0089 


COOS 


000^ 


CI 00 


0003 


DATA 


OOBO 


ENTEF 


0063 


ENTIO 


0058 


ENTRY 


0006 


EOFD 


OOBC 


EOFO 


OOSD 


ECTSW 


00B3 


ERCNT 


009A 


ERDWT 


00C5 


ERROR 


OOBB 


FRSW 


0094 


ERTST 


008B 


EXINT 


OOFl 


EXIT 


0001 


EXITA 


0076 


FRAD 


00 FC 


rF',ADA 


0087 


FFOO 


008F 


HOLD 


00B4 


INTRP 


00F2 


lORUF 


0C3C 


lOCC 


0098 


lOCCl 


00A3 


I0CC2 


00A4 


I0CC3 


00 A6 


lOOP 


00 5 T 


lOOPA 


0059 


lOOPB 


C05B 


LOOPl 


CO<^B 


L00P2 


006D 


MAGTZ 


000 


KHSv: 


t^OAP 


NOISE 


0095 


OCNT 


0092 


0080 


0090 


OUTPJ 


0112 


PAT 


UOED 


PERM 


00E8 


RDWRT 


008A 


READ 


C042 


REDY 


00fl3 


REWD 


0037 


RWU 


one 


SDATA 


009E 


SENSE 


G09A 


SNSWC 


009C 


TMEOT 


0055 


TNRDY 


00D5 


TREDY 


0077 


TSSEN 


0096 


UNIT 


0093 


i: A I T 


OODD 


WCTST 


008E 


WRIT 


0048 


WTEOR 


0114 


NO ERRORS IN 


ABOVE ASSEMBLY. 


• 
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// JOR 

//FOR 

*LISTALL 7*2Sr, 

*NAVE TAPEF 

*IOCS(GARD,N^AGNETIC TAPEU132 PRINTFR) 

FNn FILE 8 
DO 5 <=l,g 
K = K+1 

RFAC(2fl)(X(n,r = l,i8) 
5 WRITE(5,l)(X(I),I«l,2n, 
1 FORVATdQA^) 

FND FILE 

E'^0 FILE 

REWI^JO 

^0 10 K=l.ll 

K = <;4i 

RE'-.'IND 8 

READ(5»l)(x(n,l = l»lfl) 

RFWI:\|r) 9 

IC •-•■RITE(5,1)(X(I),I = 1,18) 

J"-N? FILE 1 

FND FILE 1 

RFWINO 1 

RE'VIi\D 9 

00 15 K=:l»13 

K^K+l 

READ{5.1)(X(I),I=i,i8) 
15 WRITEt3»l)(X( I),Irl,iB) 

CALL EXIT 

E'iD 



VARIABLE ALLOCATIONS 
X =0026 K =QO?S I 



•OO^A 



STATf-'ENT ALLOCATIONS 

1 =C03S 5 «nc70 IQ =00B9 15 =:)inc 

FEATURES SUPPORTED 
IOCS 

CALLED SUBP.'^OGRAv'S 

'"' '"'^ "''-' ^^^'^T SCOMP SFIO SICFX SUBSC EOFZ ...,„, 
INTEGER CONSTANTS 

B=002E l=002F 9=0U30 ^=0031 ie=0C32 ,=0J33 
CORE REOUHEMENTS FOR TAPEF 
COMMON VARIABLES 46 PROGRAM 2^?. 

END OF COMPILATION 
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// XEO TAkEF 7—^*^* 
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THIS PROGRAM TESTS THE MAGNETIC TAPF SUPPORT FOR FORTRAN PROGRAMS 0'\ 
THE IBM 1130 SYSTEM. THE TEST CC^^SISTS OF READING 72 COLUMNS FROV 
EACH OF FIVE DATA CARDS* WRITING THE CONTENTS OF EACH CARD ONTO TAft. 
UNIT 0# TRANSFER I NG THE FIVE RECORDS FROM TAPE UNIT TO TAPE UNIT 1, 
AND FINALLY* READING THE RECORDS FROM TAPE UNIT 1 AND PRINTING THL,^'. 
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// JOB 
// ASM 
»LIST 7-Z^. 



on 00 

0001 00 
0003 
000^ 01 

0006 

0007 

0008 

0009 00 
OOOB 
OOOC 
OOOD 
OOOE 



095AA000 

900A 

66800000 

6A06 

4C100009 

looe 

E804 

EOO^ 

4C000000 

0010 

0005 

0FO5 



lOU 



RET 
M16 



LIBR 

ENT 

S 

LDX 

STX 

BSC 

SLA 

OR 

AND 

BSC 

DC 



T0Q05 DC 
T0F05 DC 

END 



12 
2 

L 



lOU 
M16 

«»« 

RET+1 

RET»- 

8 

T0005 

T0F05 
«>« 

16 

/0005 

/0F05 



IS UNIT LEGAL 
IF NT EXIT 



NO ERRORS IN ABOVE ASSEMBLY. 
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// J( 


:;H 










// ASM 










*LIST 


7-17. 
















LidR 




0001 




19166569 




ENT 


REWNZ 


0017 




O20D2flA9 




ENT 


BCKSZ 


no IB 




05586A40 




ENT 


E0F2 


00 00 





0003 


THREE 


DC 


3 


0001 





COFE 


REWNZ 


LD 


THREE 


0(;02 


00 


66800000 




LDX 12 *-■» 


00 04 





DOIE 


COM 


STO 


SAVAQ 


00 5 





CO 19 




LD 


H4C00 


0006 





00 OE 




STO 


RET 


0007 





lOAO 




SLT 


32 


000 8 


00 


C6800000 




LD 12 . 


OOOA 





72 01 




MDX 


2 1 


OOOB 





6A0A 




STX 


2 RLT+1 


OOOC 


20 


095A4000 




LIBF 


IQU 


on 00 





4fl0fl 




BSC 


+ 


OOOF 





7006 




MDX 


RET 


00 OF 





1BD8 




RTE 


24 


10 





9t/0F 




S 


, HO 500 


00 11 





'♦f 20 




EiSC 


Z 


0012 





7002 




MDX 


RET 


00 13 





COOF 




LD 


SAVAQ 


00 14 


20 


1^0478E9 


MAG 


LIBF 


MAGTZ 


0015 


00 


4C0000OU 


RET 


BSC L 


»— * 


0017 





COOA 


RCKSZ 


LD 


FOUR 


00 18 


00 


66800000 




LDX 12 *-* 


00 lA 





70E9 




MDX 


COM 


ooin 





C005 


FGFZ 


LD 


FIVE 


00 ic 


00 


66800000 




LDX 12 *-«■ 


00 IE 





70F5 




MDX 


COM 


o.llF 





4C00 


H4C0a 


DC 


/4C0G 


002U 


G 


0500 


H05U0 


DC 


/OSJO 


0021 





0005 


FIVE 


DC 


5 


00 22 





0004 


FOUR 


DC 


4 


0023 





0000 


SAVAQ 


DC 





0024 








LiND, 




NO f 


ERRORS IN 


ABOVt ASSEMBLY. 
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// JOB 

// ASM 

*LIST 

*PRINT 

0000 

nOOO 

UOOO 

nooi 

0003 
000 5 
0007 
0009 
OOOA 
DOOR 

nnoD 

00 OE 
00 10 
00 12 
0013 

• 00 14 
, '.015 
' >'tni6 
' ''^17 
t ';nif^ 

.'ni9 
roiA 

.'50 IH 

ooic 

on IE 
' 00 IF 

. on?o 

0021 
' 00 2 3 

0024 
; U0 2 5 
[ 00 26 
, no 2 7 
, 0029 
. 002R 
, 00 2C 
^ 00 2E 

00 2F 
' 00 31 

00 32 
. 00 33 
t 0034 
.no 3 5 
.0036 

• 00 3 7 
00 3 8 
0039 
00 3 A 
00 38 
j0 3C 
00 3 B 
00 3F 
00 40 
0041 
0042 
00 4 3 
0044 
0045 
0046 
0047 




01 

00 

01 

00 





01 



01 

00 





















00 







oc 









01 

01 



01 



01 























01 



















01 



SY^ROL TA 
Un478Cl 

onoo 

0000 

660000D3 

6E00000C 

66800000 

C6800000 

9065 

r)065 

4C280010 

1010 

D400009B 

C6800001 

D068 

E85F 

D05D 

C06B 

F05E 

ER63 

E85D 

D067 

D064 

D06B 

C6800002 

0078 

1001 

D074 

C6000003 

9073 

804A 

D071 

C049 

4C280040 

4C180044 

9042 

4C180035 

903F 

4C180037 

1110 

K 3D 

rn5o 

7014 

r056 

7001 

C055 

1890 

4023 

C05D 

1803 

4CC40000 

1090 

7009 

C037 

002F 

C041 

7003 

C034 

D02B 

C047 

74020000 



BLF 



ENT 
MAGTA BSS 
EXIT DC 
ENTRY LDX 
STX 
LDX 
LD 
S 

STO 
BSC 
SLA 
STO 

A td° 

LSTO 
LD 
AND 
OR 
OR 
STO 
STO 
STO 
LD 
STO 
SLA 
STO 
LD 
S 
A 

STO 
LD 
BSC 
BSC 
S 

BSC 
S 

BSC 
SLA 
STO 
LD 
MDX 
REWD LD 

MDX 
RSPC LD 
SRT 
BSI 
LD 
SRA 
BOSC 
SLT 
MDX 
READ LD 
STO 
LD 
MDX 
WRIT LO 
STO 

D 
MDX 



L2 
L2 
12 

12 



L 
12 



12 



L2 



B 



MAGTA 





EXINT 

12 

MAGTA 



C002 

RDWRT 

*+3f+Z 

16 

EOTSW 

1 

UNIT 

EOFO 

FOFD 

IOCC+1 

FFOO 
UNIT 

0080 

IOCC+1 

TSSEN+1 

SDATA+1 

2 

CCW+2 

1 

CCW 

3 

CCW+2 

C002 

CCW+2 

RDWRT 

READt+2 

WRITf+- 

COOl 

R£WD»+- 

COOl 

RSPCi+- 

16 

RDWRT 

CEOF 

ENTIO 

CREWD 

RSPC+1 

CBSPC 

16 

TREOY 

DATA 

3 

EXITfE 

16 

ENTIO 

ClOO 

ERTST 

CREAD 

ENT 10-2 

COOS 

ERTST 

CWRIT 

MAGTAt+2 



SET INTER. ENTRANCE ADDR 



COMMAND 

SAVE OP CODE 
IF READf BRANCH 
IF NT READ. SET EOTSW OFF 

UNIT 
RESET UNIT 
FORM EOFX 

AND STORE 



lOCC DEVICE 
SET UP 

LOAD WORD CNT 

LOAD ADDR OF I/O AREA 



LOAD OP CODE 

READ 

WRITE 

REWIND 

BACKSPACE 

SET RDWRT TO WRITE FOR WTM 

RETRIES 
END OF FILE 



TEST OEV RDY 

SET LP MARKER 
EXIT IF ON 



READ 

SET RETRY COUNTER 



WRITE 
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PAC-.f 



0049 





D030 


FNTIO 


STO 


HOLD 




nn^A 


01 


74020000 




MDX L 


MAGTA»+2 




00 4C 





1010 


lOOPA 


SLA 


16 




GOAD 





0034 




STO 


ERCNT 


INIT ERROR CNT 


004F 





C0?t^ 


lOOPB 


LD 


HOLD 


LOAD COMMAND 


004F 





0046 




STO 


CCW + 1 


SET COOMAND INTO CCW 


0050 





lOAO 


I OOP 


SLT 


32 




0051 





Dfl2A 




STD 


ERSW 


CLEAR ERROR SWITCH 


0052 





4069 




BSI 


T.MRDY 


EXEC OP AND AWAIT I^ 


00 5 3 





C028 




LD 


TRSW 




0054 


01 


4C2000A2 




BSC L 


ERROR »Z 


BRANCH IF ERROR 


0056 





C019 


ENTFF 


LD 


RDWRT 




00 57 


01 


4CDO0OOO 




BOSC I 


EXITf- 


EXIT IF NOT READ 


00 59 





ICIO 




SLA 


16 




005A 





)( 4 




STO 


EOTSW 


SET SWT TO OFF 


00 5R 


01 


4CC0U000 


EXITA 


BOSC I 


EXIT 




00 5D 





000 


TREDY 


DC 


. 


TEST UNIT READY .NT B 


00 5 E 





1010 




SLA 


16 




00 5r 





r)030 




STO 


NRSW . 


SET INTER SWT TO OFF 


0060 





0825 




XIO 


SDATA 


FETCH SENSE DATA 


OOfil 





4062 




BSI 


WA I T 


AWAIT INTER 


006? 





C035 




LD 


DATA ■ 




00 6 3 





lOOA 




SLA 


10 


SET TUAt TUB BITS 


0064 


01 


4C020069 




BSC L 


REDY.C 


IF READYf BRANCH 


0066 


?.c 


17064885 




LIBF 


PAUSE 


IF NT RDY. INDICATE 


0067 


1 


006D 




DC 


FBADA 




0068 





70F5 




MDX 


TRFDY+l 


RFTFST 


0O69 


01 


4C6R005E 


REDY 


BOSC L 


TREDY+1,+2 


IF BUSY» RETEST 


G06R 


01 


4C30005D 




BSC I 


TREDY 


IF READY. GO 


00 60 





I'EAO 


FRADA 


DC 


/DEAD 




00 6 F 





OCOl 


coci 


DC 


1 




'006F 





0002 


C002 


DC 


2 




00 7U 





0000 


ROWRT 


DC 


C 




0Q71 





OOOC 


ETRTST 


DC 


C 




00 7,'' 





0000 


FOFD 


nc 







00 73 





FOFO 


EOFO 


DC 


/FOFO 




00 74 





F F F i+ 


WCTST 


DC 


-12 




00 7 5 





FFOO 


FFOO 


DC 


/FFOC 




U0 76 





OORO 


0060 


DC 


/COS 




0078 




0000 




BS5 E 







00 7 3 





0032 


ClOO 


DC 


5C 


READ RETRY COUNT 


00 79 





C C 3 


C003 


DC 


•s 


WRITE/WTv UETRY CNT 


0J7A 





G 0^ 


HOLD 


DC 







00 7'-'. 





0000 


UN I T 


DC 







00 7C 





0000 


FRSW 


DC 







00 70 





CO 


NOISE" 


DC 







00 7!-: 


1 


0092 


T5SFN 


DC 


CCWA 




00 7F 





DDOO 




DC 


/DDOO 




00 8 


1 


0095 


lOCC 


DC 


CCW 


START 


00 PI 





DDOO 




DC 


/DDOO 


I/O 


OOB? 





OCOO 


SENSE 


DC 





SENSE J STAT W/ RESET 


O0B3 





DF0 3 




DC 


/DF03 




00 4 





^tC2 


SNSWC 


DC 


/2002 


READ 


ooa5 





)f 06 




DC 


/DF06 


SENSE BYTF CNT 


00 B 6 


1 


-^r-pp^ 


SOATA 


DC 


SDATA+2 




00 R 7 





DDOO 




DC 


/DDOO 




00 PR 





0006 




DC 


6 




00 8 9 





004 




DC 


4 




008A 


1 


OO^.R 




DC 


DATA 




OORB 





0017 


ICC CI 


DC 


/0017 


ERASE 


00 RC 





00 7 


I0CC2 


DC 


/0007 


REWIND 


OORD 





02 7 


CRSPC 


DC 


/C027 


BACKSPACE 
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PAGE 



CiSE 2001 

ooar >:oor 

0090 OCOC 

0091 C ?Oir 
OOP 4 

00 9 E 

ODsn 

00 8C 
0082 

0092 onno 
009? oooc; 

009^^ 0000 

0095 007A 

009f, OCOO 

0O9 7 00 3 

00 9 » 0? 



00 9i' 



;n!: 



00 9c cor4 

00 9r DOFB 
0p9F 01 4C4000A0 

00 AC hOIF^ 

00 A 1 7 0f'-^) 

O0A2 COC'-) 

00A3 01 4cr';aooo 

0OA5 01 4C2C;00CA 

00A7 CLF-5 

00 A 8 )( f r. 

00 A9 hrip 

noAA corn 

OOAB DOFA 

00 AC 40 OF 

00 AD CODA 

00 AE 8 CRT 

OOAF OOD? 

OORO 9CCr 

00 Bi 01 4cof':;o/4r 

00B3 C0E2 

00R4 FODC 
OOF35 01 4C20C0CF 
00B7 01 7400009", 

00B9 70F2 

OOBA DOC 7 

OOBB 70^4 

OOBC 0000 

OORII 4()9F 

03 RE 1010 

OOBF DODO 

Onco 08BF 

OOCl 4002 

O0C2 01 4C800CIU: 

O0C4 0000 

3 0C5 COCA 

00C6 01 4ClFv'^C(-^; 

30 Cs^ 01 4CflC',.C. . 

OOCA C0B2 

-OCR 01 4C200;;.,c 

30 CO ccnf 

00 CF 7 0nr 

00 CP 20 170S.»hH5 

00 DC 1 nOD2 

•'■■ODl 7084 

0002 BADO 



I0CC3 DC 


/2001 


DC 


/QOOF 


'JBSW DC 





CEOF DC 


/201F 


crfad equ 


SNSWC 


CWRIT EQU 


I0CC3 


CERAS EQU 


lOCCl 


CREWD EQU 


I0CC2 


FRCNT EQU 


SENSE 


CCWA DC 





DC 





DC 





CCW DC 


122 


DC 





DC 


/003D 


DATA BSS 


3 


EOTSW DC 





TMFOT LD 


CEOF 


STO 


CCW+1 


BOSC L 


*■ 


BSI 


TNRDY 


MOX 


EXITA 


ERROR LD 


RDWRT 


BOSC I 


EXIT,-Z 


BSC L 


CKNCS.Z 


LD 


CBSPC 


STO 


CCW+1 


BSI 


TNRDY 


LD 


CERAS 


STO 


CCW+1 


ERDWT BSI 


TNRDY 


LD 


FRCNT 


A 


CO 01 


STO 


FRCNT 


S 


FRTST 


BSC L 


lOOPBf* 


LD 


CCW+1 


EOR 


CEOF 


BSC L 


PERM.Z 


MDX L 


EOTSWfO 


MDX 


TMEOT 


STO 


ERCNT 


MDX 


I OOP 


TNRDY DC 


u 


BSI 


TRFDY 


SLA 


16 


STO 


NBSW 


XIO 


lOCC 


BSI 


WAIT 


BSC I 


TNRDY 


■/■•A I T DC 





LD 


NBSW 


BSC L 


WAIT+1,+ 


BSC I 


WA I T 


Cr;/.:^S LD 


NOISE 


HSC L 


lOOPAtZ 


LD 


CBSPC 


VOX 


F!^DWT-1 


"'FRM' LIBF 


PAUSE 


DC 


FBAD 


MDX 


FNTEF 


FBAD DC 


/BADO 



WRITE 
RWU 

WTM 



TEST I/0{CCa') 



BYTES 

COMMAND 
lOBUF+1 ADDR 



WTM 



EXIT IF NT RD/WRT 
BRANCH IF READ 
{WRITE ERROR) 

BACK SPACE 
SET FRASF 

EXEC ERASE OR fiSP 

INCRM ERR Cr;T 

CNT OVER MAX 

\0* RETRY OPERATION 

TEST FOR '/.'TM 

IF NT WTM. INDIC. ^'ER". Fr-i., 

IF FOT, RETRY 

IF WTV» RETRY 

UNIT READY 



EXECUTE OP 
AWAIT INTER 
RET AFTER INTER 



IF NO INTER yet;. aAIT 
RFTURN AFTER INTEiK 

SKIP NCISF RECORD^ 
BACKSPACE 

IF ERR, INDICATE 

CONTINUE & EXIT IF RETU-' 



0003 





nroo 


EXINT 


DC 







OOD-if 





08AF 


INTRP 


XIO 




SaSWC 


0OD5 





909E 




s 




WCTST 


0OD6 





48?B 




BSC 




+ Z 


00r>7 





D0A5 




STO 




NOISE 


00D8 





0BA9 




XIO 




SENSE 


00 09 





lOOD 




SLA 




13 


OODA 


01 


4C1000F4 




BSC 


L 


CUTINt- 


OODC 





1001 




SLA 




1 


00 DD 





482a 




BSC 




+ Z 


OODE 





689D 




STX 




ERSW 


OOOF 





6flR0 




STX 




NBSW 


OOEO 





1001 




SLA 




1 


OOFl 


01 


4C1000F4 




BSC 


L 


OUTINt- 


00F3 





COB? 




LD 




CCW+1 


O0E4 





90A9 




S 




I0CC3 


00E5 


01 


4C1B00F6 




BSC 


L 


WTEOR»+- 


00E7 


01 


4C0B0bF4 




BSC 


L 


OUTIN.+ 


00E9 


01 


T4000d9B 




MOX 


L 


EOTSW.O 


OOEB 





7006 




MOX 




RWU 


00 EC 


01 


7403009B 




XDX 


L 


EOTSWi+3 


OOEE 


20 


170648B5 




LIBF 




PAUSE 


00 EF 


1 


0072 




DC 




EOFD 


OOFO 


01 


4C40004C 




BOSC 


L 


I OOP A 


00F2 





C09C 


RWU 


LD 




IQCC3+1 


OOFS 





7bA9 




MDX 




TMEOT+1 


OOF^ 


01 


4CC000D3 


OUT IN 


BOSC 


I 


FXINT 


OOFfo 


01 


74FF0079 


WTEOK 


MDX 


L 


C003»-l 


OOFR 





70A3 




MDX 




TMEOT 


00 F9 


01 


74030079 




iMDX 


L 


C0Q3»+3 


OOFB 





70F6 




MDX 




R\-d) 


00 FC 








Ei^nID 







ISS INTER 
IGCC BYTE 
CHK iNiCISE 



KET LINK 
SENSE 



UNIT STAT* RESET 
SET DE 

IF DE NT 0N» AWAIT SECND INT, 
SET UC BIT 

SET ERSW HOH ZERO 
SET IJBSW NGN ZERO 
SET UE(EOT.EOF) 
IF NT 0N» EXIT 



IF WRITE* WTM(2> 
IF NT READ* EXIT 
IF READ* IS EOT ON 
ir YES* RWU/ TERM 
IF NT ON* SET ON 
EOF INDICATE 



EXEC 
INTER. 



RWU/ TERM 
EXIT 
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SYMBOL TABLE 



RSPC 

CERAS 

COOl 

FNTEF 

EOTSW 

ERTST 

FRADA 

lOCCl 

lOOP} 

OUT IN 

RE WD 

TMEOT 

WA I T 



0037 
008B 
006E 
0056 
00 9 B 
0071 
006D 
008B 
004E 
OOF* 
0035 
009C 
OOC* 



CBSPC 

CKNOS 

C002 

ENTIO 

ERCNT 

EXINT 

FFOO 

I0CC2 

MAGTA 

PERM 

RWU 

TNRDY 

WCTST 



008D 
OOCA 
006F 
00*9 
0082 
00D3 
0075 
008C 
0000 
OOCF 
O0F2 
OOBC 
0074 



CCW 

CREAD 

COOS 

ENTRY 

ERDWT 

EXIT 

HOLD 

I0CC3 

NBSW 

RDWRT 

SDATA 

TREDY 

WRIT 



0095 
0084 
0079 
0001 
OOAC 
00 00 
007A 
008E 
0090 
0070 
0086 
005D 
0044 



CCWA 

CREWD 

ClOO 

EOFD 

ERROR 

EXITA 

INTRP 

I OOP 

NOISE 

READ 

SENSE 

TSSEN 

WTEOR 



0092 
008C 
007B 
0072 
00A2 
005B 
00D4 
0050 
007D 
0040 
0082 
C07E 
00F6 



CEOF 

CWRIT 

DATA 

EOFO 

ERSW 

FRAD 

lOCC 

lOOPA 

0080 

REDY 

SNSWC 

UNIT 



0091 
008E 
0098 
0073 
007C 
00D2 
0U8C 
004C 
0076 
0069 
0084 
007B 



NO ERRORS IN ABOVE ASSEMBLY. 
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//FOR 

*LISTALL J^Z^, 

*NAME TAPEM 
*IOCS(CARD.1132 PRINTER) 

DIMENSION X(iiO) 

DO 5 K»l»9 

K«K+1 

READ(2.1MX( I ) »I»1,18) 
5 CALL MAGTA(2»0i36»X) 
1 F0RMAT{ieA4) 

CALL y.AGTA {5»0) 

CALL ■'A.-.TA ibtO) 

CALL MAGTA (3»0) 

DO 10 K»lfll 

KaK+1 

GALL MAGTA{0»0»36tX) 
10 CALL MAGTA(2il»36,X) 

CALL MAGTA (5tl) 

CALL MAGTA (5»1) 

CALL MAGTA (3,1) 

DO 15 K«l»9 

K«K+1 

CALL MAGTA(0»l»36iX) 
15 WRITE(3»1) (X(I),I.tl,l8) 

CALL MAGTA(0»1,36»X) 

CALL MAGTA(a»l»36iX) 

CALL EXIT 

END 

VARIABLE ALLOCATIONS 
X -0026 K "0028 I »002A 

STATEMENT ALLOCATIONS 
1 «0037 5 a006D 10 a0097 15 =C0C1 

FEATURES SUPPORTED 
IOCS 

CAlLE.") SUBPROGRAMS 

MAGTA FLD F5T0 SRED SWRT SCOMP SFIO SIOFX SJBSC CAK^.Z 
INTEGER CONSTANTS 

1«002E 9=002F 2-0030 18=0031 0=0032 36=:033 ^ = 

CORE REQUIREMENTS FOR TAPEM 
COMMON VARIABLES 46 PROGRAM 192 

END OF COMPILATION 
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// XEO TAPEM 7-Z^>^ 
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ASSU' 



THr'lpfu30 'y^T^M'^'r^J'^^"^^ TAPE SUPPORT FOK 
EACH f)F J J" Dl?A"c;pns^^J?flM^°?5^^^^^"^ ^' "FADING 72 

A/01 FINALLYt RLADING THE RflCORDS FROM TAPE 



UNIT Q 
UNIT 1 AND 



IBLER PROGKAi-iS 
COLUMNS FROM 
CARD ONTO TAPE 
TO TAPE UNIT 1, 
PRINTING THEH. 
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Ml. iA^I 




MGT 



LOAD ADDR CF - ARA1-5;T3:HS FROk T 
&AVS XR2 AND XRl A.:D MISTABLI^H 
ADDEESSIM^- TIT XRl 



isTOEa AC.sxr, ako siatusJ 







KTRST fjAjfoRS X Rl , 3E: 

EiBruRK TO ossh) 



HTNR IE2T Ui' '!:0T R 
ICOi-iJiAMD RSJSCT 



SAP'/' OE I 

T (4X00) OCDSr ' 



SET UP lOCC AIID 

sn RouriNi 



^rriLL lsirr up illsgal co de (4goi) | 



|E2T UP TC HSTHY C 

13X1 r 10 Loa. 41 



allTI 
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P;i VIA V.DX ^a-'l:; tc ^^Oi-:£H c.iT u^ ecj:i:: 
i,..HITH/ Rir:-" •.Xr-.CLT.V.-RITi jAvi i'^^vi, ..0 
D/3AC;.ii A02,Ra..D-U:;LD) 




■•TED 



l^lmm^m^m 



£3T ESru.- 0;,T TO 50 



X 



MLi' 



Frite/weits with Qua 

ISST V.'hI T3 kl HIl-Ui-. I 

L-L« 




.3S? V,CnJ CiCT 



|iC~ITIOK i^.ODJ B'K'TSI 





I i-.?ie::44] 

iRS^;i>-UHLDt 



ioJT i/c ^e::. Whl . 



;^ 



taz;. 1-.A..A 



■Si^ 



-vszlI l-^z7 coKiT :oD-i: into "oc-.vl 

fclTl55 
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m 



J.2CC Pi*v 


^^T 


:ou" 


?iH 


IiaTIATE 


ixicu 


TICIC 


OF C 


'Ml - 


a:;d 




FJiru?-' 


nn 


USi? 




VIA 


I-^r 


-^- ■ 


- 



lHAED:AHi 
IVIA 1L3C4J 



iSEEEHpAVS XR2, l;HriALiZ2 SRKOrt FL.i'J i:c XH2, 
IzsrASLISH ADDESSilirSIKXEl 



FircH ai;d srcRS ohaiscsl status 
FSTCH, sTCRz:, ■■!;::■ ssT ui? uini status | 



;-.THGC 



I 



B?J4l':0H TC ?RCr3R ISTZHHUPT ROUTIKZ VIA iS'A TABL2 



i mv/m^Wc s^/mm] 



SXITA 




ECi\i-. ISS CGulITSi-v 

r EOUTiii^: :;oT busy 



TSiJ- 



IWRITS .;iTHOi;ii 



RiXOAD Xfi2 
1X1? TC USiR VIA ILtCi 



I 



moR 




|ESI TSI-.'sTI 



KT^:07 




SET OCDi 151 

csi ass:jT J 



ERRA |S2T i3C33 1^ 
IBS I CDSST 
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TISST CODS 7/ 

pSI . CPSST I 



REKs im:SSI REAP R3TP.Y CIf?| 

M Jbsi rstryI 



ERR IbSI 005^7^ 



rSHSE 



•^^PECSIPI 



>Qi3Mtb«.-twi><a5»; irgin 




y -w^ET UP FOR RSrR^ 



R:;TUr.!; via'ts:;s5' f 




pTUT? 
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jST 







— f^-tja:: Li^n^j 



3 



I sir 'ek:' tc 'rvuH 

22, ISTOHS CCIS" 

ISST E.'TEKxPJrT BHj\:,'Ck| 

TO 'be:;' 




ISS? '3RV' TO "miES' 



WTlKas lsST '3 



>3T '3RK' TO 'Iim,-2'| 

WHiis Sac:-;p tk) i 



Ky<v2 fRSTUR;: via 'wK'I 
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7-Ji. Majz 




IKiTURlS 



"''""Co 4D^""; ^^ilir^kaJr^ ..iJ-M-OT: 

1X0 ADSni.S^ OF '-YTMT»I 



Ap CO:..i<:aliD(FROK AS^) 




-J " 



-3 '■^ — ' 



fcO;^ -JHIT' ISTQ Aa\ 




ki.i ao.r RT yoB Pirir^^H 




|£S.>-C I 
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DiTC FIRST '.vCRD 
OF FOIiT?AK -UFr.-R 



ecu.? TO g{ 



1 



F-C-C -UFFSFJ 
FOH CUTrUr I 



ILOAD •..RITS COi-JJAlJiJl 












Ibsi 'THSDY^ 



SF 




SET READA'nirS EV/ITCH 
TC ''HITS' 

load write tape kark 
o»:and 



SNTI0[S T0H5 COI-J'IiUro IK 'HOLD't 
lOOPA tSgT SHfiQB JUT TO ZEKd 



rOO£B 



I 



LOAD COMiyjD FROK 'Hi 
STORS IK CC'rf 

I 



'HOLD'j 



lOOP |S5T 5HR0R STITCH TO ZSaO^OFF")) 
-J 



iBSI 'TNHD?| 
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x-IH; 



5T 7.:-.f.cR :::t to c;.-::-o1 
/ic^ 7 
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rRHaYjRSTu:-:: iiifa 



rHSDY+i 











f 



£sr| 



'i ^ 

Isxsout: 




2XIKT ^RSITORK LIKi^ 
IKTHi' 




y — 



JsKT i::iiRRui''r s-.,rraH ^o.-.'-^p^o^-- 



*^ ""^iSXIT VIA 'SJC^rT'i 




jlOOPA 
/(ISSUE SSCOiSD 

(rsad coiaiAin)) 



riSOT E.OAP WRITE mPE KftRK C0»IA7:nJ 

^ST co^a^AMD isto c^ 



J- 

3SI THHDYi 
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7-?>. 



33CIT [SAVT 




^:: TR^y |K2S2r LiV. 4 INTiRHUPT 3::TiLi::Ci: 
TO .iXRiSS CF 'SXIl"' 



COKaVMDl 




'^*- >iSST £Cr S./ITCH TO 7."nO^ 



£ 



RSTURi; TO I'lAIi: 
t-HOGRAM VIA '31X11' 




SET RD/\v'RT 

S',;iTOH :c 

WRITS' 

LOAD ^.-rith: 



jLOAD READ I IlOAD WRITE] 



fEti 'rRSDi:'! 





f 

i.; no l&rcRc: c;:-^-:.>;:d ii; 'kcl:'! 
liilOH2i-.L:;T 'ix:r' vz J 

lOOPA }S5T SRHCR a:;T TO z^Rcl 



lOOif^ ILC;-:) CC^3IA-:D FRCk 'I 

I OOP |S2I .SRROR S-..-ITJK TO SZRO(OFF)i 



LZ-: :c: i. i:g;.| 
re z;:-o(QFF) / 



ERROR 



:]i::c 




■» lS2T 5AC,.2.-f^C;| -— » |BSI TNPJ'j 



S RRQR COUIrT 
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< 


<!Kxr>^ 


If ^fTrS! 


?Y»n 


T 








[:r3Dy 
ICrstuf:;) 














LOAD ^-RirS TAx-S 
MARK COi-iiAKD 




.1 i 






551 r;:?.DY 


-i 








jTi-30T»l| 



i 



OOPA 

:u2 .v2:3c>:d ax.:.^ JCi....A::p)| 
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i4. ILS0 4 - RKV/^jZ TOtT .^^:T^ cT'Tr^ 

ncwcriarts of ;hese routines have NOT oeen included since they are 

-asically standard system subroutines. 

ILSQ4 

Standard level 4 Interrupt routine except for changes(indicated by 
arrows, cf. 7 - 23.) needed to test for interrupts from the 29S4 
R. P. Q. Selector Channel. 

RFA'NZ 

Interface routine for Forfran and MAGTZ fa- BACKSPACE, END FILE, 

and REWIND commands (cf. 7 - 27.). 

lOU 

Converts logical unit numbers to physical unit numbers^ is 

called by REWNZ ( cf. 7 - 26.), 

SFIO 

Main 1130 single device I/O Fortran routine with the test for an Ulegal 
device on a READ operation disabled. The original routine considered 
all odd numbered devices (e.g. console printer, printer, plotter) as 
illegal. However, since magnetic tape is number five, this method 
of testing the device number is clearly Inadequate. The test should 
be re-written and the entire routine reassembled instead of just being 
disabled, but SFIO is a large routine and no source deck was readily 
available, so the test was dis abled by making a BSC L instruction 
into an unconditional branch: this required changing only one bit in 
the entire program and could be done easily with an object deck. 
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A.f?a<9IX A, — SRHOag BST^OTSD BY i.;A-.T oUEfiOU?!?.--: * 

{ Accumulator ContentB{ he x ; 



Error 



Write and Write Tape Kark 

•Srror 

•End-Of-Tape 

•Srror/SOT 

Wrlta Without Hatrlan 

•Srror 

•Snd-Of-Tspe 

Read 

•EiTor 

*End-Of-Flle 

•EOT 

♦Long Record 

•Short Record 

Device not roady or 
coEmand raject 

niegsl unit, functln, 
or word count 



C X B 
0X00 
X D 

X s 
X F 

0X01 
0X02 

0X06 
0X07 
0X08 

4X00 

4 1 



",^I ?-ru-=^=r. Tness arrorr are detected darlnic the 
i^^r. of interrupts; sb a con.equance, f^ Sfer^ 
«wr routine i. an interrupt routine, executed at p^orlty 

Si\?.^n:fr?4^.js:nc"r*" *^««^^"-tion di^it m th. 
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ArrS?PIX B. VAUT SUSHOUTIKa ACTIOS AFTSR RSTUrg: FROk USSR * 



ka3i:a ;.K3 j-agtz: srccHS i)i:Tzcr£3 ■.:;s U;jj.n a^t^u.^ 



Error Coda 


Condition 


Sutr. Action 


Writs and Write Tape Jiark 


If AC is 


Teralnate 


C 


X 5 






Otherwise 


Batrj 





X C 


If AG ii 


Ter-Einate 






Cther.'/lse , 


S0F/20F/Kv-J/Tarm. 





X B 


If AC is 


Terminate 






If AC is negatiTs 


Estr'r 






If AG Is odd/pos 


2C?/20F/BifU/TerE. 






If AC is even/po8 


SOF/SCF/EVU/Retrj 


Vrlta Without Retries 


If AC is 


TsrBiinate 





X E 






Other^viie 


Chsait for SOT** 





X F 


In any ease 


Tensinate 


R9ai 











X 1 


If AC is 


Ternjlnate 






Othen-^isa 


Bstry 





X 2 


If AC Is 


Tenainate 






Cther'-.-ise 


Retnitiata 





X 6 


If AC is 


Terainate 






If AC is negative 


HSiTU/Ra initiate 






If AC Is odd/pos 


Reinitiate 






If AC is aven/uos 


ESro/Tenainate 





X 7 


If AG is C 


Tarfflinate 






Otherwise 


Retry 





X S 


If AC is 


TersElnate 






Other./iae 


Correct Coimt/Terffi. 



Srror/AC Coda 




-^ 


b'£-r. Action 




Davloa not reioT 
(D a A 0) 


Hs dy device, pr-r.r. 
pro;T:i:- c-ts.rt 


Current ooaa^-ai 
retried 


llon-corrscttcia 
rssd, v.rite, or 
3r;d ills srror 
{:-. A D C) 


jrrer -: , ro r;-.:: r:t:;rt 


Curr-sr.t co3;2-nd 
tsri;irwted, ' ut 
;.rcr;rs.n ^xsoution 

ccntlnued tt nsxt 
ao-S."nd 


Read 


rre-c pro-^rs-ffi TXsrz 


Current rsi^d 

Inctruotlon tried 
on next record 


r:;"ae E£.rk aennod 
(S F X) 


SOT ocniiltlon 
satisfied 


(iiO sot ion naedsc) 


Tspe unit rsi'ound/ 
unloaded; pro'traa 
sxeCution continued 
iit next coscaand 


V/rite or End File 


(NO action needed) 




SOT condition 
sa-tisfled 




T^.'o tape B-^rks rre 
written on tape; 
tape imit reivound/ 
unioadsd; progrsa 
execution continues 
it next coL:2iii.nd 



*Por Es>"lnd/Unload commands and RWU/Terninate recovery or.ciees, 
th« subroutine is set not busy, other taps ooiciaanda on other 
unit* nay be eiBCUtad, and the unloaded unit aay be reloadsd 
at any time. For RiffU/Retry and KfU/Relnltiata reoovery choices, 
the subroutine remains busy and no other tape comsiands can be 
executed until the imloaded unit is reloaded and execution of 
the current recovery choice is ooiopleted. While v/aiting for the 
unit to be reloaded, the routine presants the error coda for 
'device not ready' (4X00) jnd maintains a wait atite at locstlon 
41. 

**If EOT, X F Is Indicsted to the u-er' a error routlno; If 
not SOT, the operation ic ter:,:ln-tsd. 



